mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 21:02:26 +00:00
psblas3:
base/Makefile base/modules/Makefile base/modules/psb_base_tools_mod.f90 base/modules/psb_c_psblas_mod.f90 base/modules/psb_c_tools_mod.f90 base/modules/psb_d_psblas_mod.f90 base/modules/psb_d_tools_mod.f90 base/modules/psb_linmap_mod.f90 base/modules/psb_psblas_mod.f90 base/modules/psb_s_psblas_mod.f90 base/modules/psb_s_tools_mod.f90 base/modules/psb_serial_mod.f90 base/modules/psb_z_psblas_mod.f90 base/modules/psb_z_tools_mod.f90 base/psblas/psb_camax.f90 base/psblas/psb_casum.f90 base/psblas/psb_caxpby.f90 base/psblas/psb_cdot.f90 base/psblas/psb_cnrm2.f90 base/psblas/psb_cnrmi.f90 base/psblas/psb_cspmm.f90 base/psblas/psb_cspsm.f90 base/psblas/psb_damax.f90 base/psblas/psb_dasum.f90 base/psblas/psb_daxpby.f90 base/psblas/psb_ddot.f90 base/psblas/psb_dnrm2.f90 base/psblas/psb_dspmm.f90 base/psblas/psb_dspsm.f90 base/psblas/psb_samax.f90 base/psblas/psb_sasum.f90 base/psblas/psb_saxpby.f90 base/psblas/psb_sdot.f90 base/psblas/psb_snrm2.f90 base/psblas/psb_sspmm.f90 base/psblas/psb_sspsm.f90 base/psblas/psb_sxdot.f90 base/psblas/psb_zamax.f90 base/psblas/psb_zasum.f90 base/psblas/psb_zaxpby.f90 base/psblas/psb_zdot.f90 base/psblas/psb_znrm2.f90 base/psblas/psb_zspmm.f90 base/psblas/psb_zspsm.f90 base/serial/f03/psb_d_coo_impl.f03 base/serial/psb_crwextd.f90 base/serial/psb_drwextd.f90 base/serial/psb_srwextd.f90 base/serial/psb_zrwextd.f90 base/tools/psb_callc.f90 base/tools/psb_casb.f90 base/tools/psb_ccdbldext.F90 base/tools/psb_cd_inloc.f90 base/tools/psb_cd_lstext.f90 base/tools/psb_cd_reinit.f90 base/tools/psb_cd_set_bld.f90 base/tools/psb_cdals.f90 base/tools/psb_cdalv.f90 base/tools/psb_cdcpy.f90 base/tools/psb_cdins.f90 base/tools/psb_cdprt.f90 base/tools/psb_cdren.f90 base/tools/psb_cdrep.f90 base/tools/psb_cfree.f90 base/tools/psb_cins.f90 base/tools/psb_cspalloc.f90 base/tools/psb_cspasb.f90 base/tools/psb_cspfree.f90 base/tools/psb_csphalo.F90 base/tools/psb_cspins.f90 base/tools/psb_csprn.f90 base/tools/psb_dallc.f90 base/tools/psb_dasb.f90 base/tools/psb_dcdbldext.F90 base/tools/psb_dfree.f90 base/tools/psb_dins.f90 base/tools/psb_dspalloc.f90 base/tools/psb_dspasb.f90 base/tools/psb_dspfree.f90 base/tools/psb_dsphalo.F90 base/tools/psb_dspins.f90 base/tools/psb_dsprn.f90 base/tools/psb_get_overlap.f90 base/tools/psb_glob_to_loc.f90 base/tools/psb_ialloc.f90 base/tools/psb_iasb.f90 base/tools/psb_icdasb.F90 base/tools/psb_ifree.f90 base/tools/psb_iins.f90 base/tools/psb_linmap.f90 base/tools/psb_loc_to_glob.f90 base/tools/psb_map.f90 base/tools/psb_sallc.f90 base/tools/psb_sasb.f90 base/tools/psb_scdbldext.F90 base/tools/psb_sfree.f90 base/tools/psb_sins.f90 base/tools/psb_sspalloc.f90 base/tools/psb_sspasb.f90 base/tools/psb_sspfree.f90 base/tools/psb_ssphalo.F90 base/tools/psb_sspins.f90 base/tools/psb_ssprn.f90 base/tools/psb_zallc.f90 base/tools/psb_zasb.f90 base/tools/psb_zcdbldext.F90 base/tools/psb_zfree.f90 base/tools/psb_zins.f90 base/tools/psb_zspalloc.f90 base/tools/psb_zspasb.f90 base/tools/psb_zspfree.f90 base/tools/psb_zsphalo.F90 base/tools/psb_zspins.f90 base/tools/psb_zsprn.f90 krylov/Makefile krylov/psb_cbicg.f90 krylov/psb_ccg.f90 krylov/psb_ccgs.f90 krylov/psb_ccgstab.f90 krylov/psb_ccgstabl.f90 krylov/psb_crgmres.f90 krylov/psb_dbicg.f90 krylov/psb_dcg.F90 krylov/psb_dcgs.f90 krylov/psb_dcgstab.F90 krylov/psb_dcgstabl.f90 krylov/psb_drgmres.f90 krylov/psb_krylov_mod.f90 krylov/psb_sbicg.f90 krylov/psb_scg.F90 krylov/psb_scgs.f90 krylov/psb_scgstab.F90 krylov/psb_scgstabl.f90 krylov/psb_srgmres.f90 krylov/psb_zbicg.f90 krylov/psb_zcg.F90 krylov/psb_zcgs.f90 krylov/psb_zcgstab.f90 krylov/psb_zcgstabl.f90 krylov/psb_zrgmres.f90 prec/Makefile prec/psb_c_bjacprec.f03 prec/psb_c_diagprec.f03 prec/psb_c_nullprec.f03 prec/psb_c_prec_type.f03 prec/psb_cilu_fct.f90 prec/psb_cprc_aply.f90 prec/psb_cprecbld.f90 prec/psb_cprecinit.f90 prec/psb_cprecset.f90 prec/psb_d_bjacprec.f03 prec/psb_d_diagprec.f03 prec/psb_d_nullprec.f03 prec/psb_d_prec_type.f03 prec/psb_dilu_fct.f90 prec/psb_dprc_aply.f90 prec/psb_dprecbld.f90 prec/psb_dprecinit.f90 prec/psb_dprecset.f90 prec/psb_prec_const_mod.f03 prec/psb_prec_mod.f90 prec/psb_s_bjacprec.f03 prec/psb_s_diagprec.f03 prec/psb_s_nullprec.f03 prec/psb_s_prec_type.f03 prec/psb_silu_fct.f90 prec/psb_sprc_aply.f90 prec/psb_sprecbld.f90 prec/psb_sprecinit.f90 prec/psb_sprecset.f90 prec/psb_z_bjacprec.f03 prec/psb_z_diagprec.f03 prec/psb_z_nullprec.f03 prec/psb_z_prec_type.f03 prec/psb_zilu_fct.f90 prec/psb_zprc_aply.f90 prec/psb_zprecbld.f90 prec/psb_zprecinit.f90 prec/psb_zprecset.f90 test/fileread/cf_sample.f90 test/fileread/df_sample.f90 test/fileread/getp.f90 test/fileread/sf_sample.f90 test/fileread/zf_sample.f90 test/pargen/ppde.f90 test/pargen/spde.f90 test/serial/d_coo_matgen.f03 test/serial/d_matgen.f03 test/util/dhb2mm.f90 test/util/dmm2hb.f90 test/util/zhb2mm.f90 test/util/zmm2hb.f90 util/psb_hbio_mod.f90 util/psb_mat_dist_mod.f90 util/psb_metispart_mod.F90 util/psb_mmio_mod.f90 Three batches of changes: 1. Change psb_base_mod into psb_sparse_mod. 2. Change USE statements in TOOLS directory. 3. Refactor some of the modules to work around XLF problems.
This commit is contained in:
Salvatore Filippone
+1
-1
@@ -3,7 +3,7 @@ include ../Make.inc
|
||||
HERE=.
|
||||
LIBDIR=../lib
|
||||
LIBNAME=$(BASELIBNAME)
|
||||
LIBMOD=psb_base_mod$(.mod)
|
||||
LIBMOD=psb_sparse_mod$(.mod)
|
||||
lib:
|
||||
(cd modules; make lib LIBNAME=$(BASELIBNAME) F90="$(MPF90)" F90COPT="$(F90COPT) $(MPI_OPT)")
|
||||
(cd serial; make lib LIBNAME=$(BASELIBNAME))
|
||||
|
||||
@@ -7,7 +7,9 @@ UTIL_MODS = psb_string_mod.o \
|
||||
psb_base_tools_mod.o psb_s_tools_mod.o psb_d_tools_mod.o\
|
||||
psb_c_tools_mod.o psb_z_tools_mod.o psb_tools_mod.o \
|
||||
psb_blacs_mod.o \
|
||||
psb_linmap_type_mod.o psb_comm_mod.o psb_psblas_mod.o \
|
||||
psb_linmap_type_mod.o psb_comm_mod.o\
|
||||
psb_s_psblas_mod.o psb_c_psblas_mod.o \
|
||||
psb_d_psblas_mod.o psb_z_psblas_mod.o psb_psblas_mod.o \
|
||||
psi_serial_mod.o psi_mod.o psb_ip_reord_mod.o\
|
||||
psb_check_mod.o psb_gps_mod.o psb_linmap_mod.o psb_hash_mod.o\
|
||||
psb_base_mat_mod.o psb_mat_mod.o\
|
||||
@@ -63,7 +65,9 @@ psb_sort_mod.o: psb_error_mod.o psb_realloc_mod.o psb_const_mod.o
|
||||
psb_tools_mod.o: psb_base_tools_mod.o psb_s_tools_mod.o psb_d_tools_mod.o\
|
||||
psb_c_tools_mod.o psb_z_tools_mod.o
|
||||
psb_base_tools_mod.o psb_s_tools_mod.o psb_d_tools_mod.o psb_c_tools_mod.o psb_z_tools_mod.o: psb_desc_type.o psi_mod.o psb_gps_mod.o psb_linmap_mod.o psb_mat_mod.o
|
||||
psb_psblas_mod.o: psb_mat_mod.o psb_desc_type.o
|
||||
psb_psblas_mod.o: psb_mat_mod.o psb_desc_type.o psb_s_psblas_mod.o psb_c_psblas_mod.o \
|
||||
psb_d_psblas_mod.o psb_z_psblas_mod.o
|
||||
|
||||
psb_gps_mod.o: psb_realloc_mod.o
|
||||
psb_hash_mod.o: psb_const_mod.o psb_realloc_mod.o
|
||||
|
||||
|
||||
@@ -77,17 +77,17 @@ Module psb_base_tools_mod
|
||||
interface psb_geall
|
||||
subroutine psb_ialloc(x, desc_a, info,n, lb)
|
||||
use psb_descriptor_type
|
||||
integer, allocatable, intent(out) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: n, lb
|
||||
integer, allocatable, intent(out) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: n, lb
|
||||
end subroutine psb_ialloc
|
||||
subroutine psb_iallocv(x, desc_a,info,n)
|
||||
use psb_descriptor_type
|
||||
integer, allocatable, intent(out) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, optional, intent(in) :: n
|
||||
integer, allocatable, intent(out) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: n
|
||||
end subroutine psb_iallocv
|
||||
end interface
|
||||
|
||||
@@ -96,7 +96,7 @@ Module psb_base_tools_mod
|
||||
subroutine psb_iasb(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, allocatable, intent(inout) :: x(:,:)
|
||||
integer, allocatable, intent(inout) :: x(:,:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_iasb
|
||||
subroutine psb_iasbv(x, desc_a, info)
|
||||
@@ -122,15 +122,15 @@ Module psb_base_tools_mod
|
||||
interface psb_gefree
|
||||
subroutine psb_ifree(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
integer,allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer,allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_ifree
|
||||
subroutine psb_ifreev(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
integer, allocatable, intent(inout) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, allocatable, intent(inout) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_ifreev
|
||||
end interface
|
||||
|
||||
|
||||
@@ -0,0 +1,272 @@
|
||||
!!$
|
||||
!!$ Parallel Sparse BLAS version 2.2
|
||||
!!$ (C) Copyright 2006/2007/2008
|
||||
!!$ Salvatore Filippone University of Rome Tor Vergata
|
||||
!!$ Alfredo Buttari University of Rome Tor Vergata
|
||||
!!$
|
||||
!!$ 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_psblas_mod
|
||||
|
||||
interface psb_gedot
|
||||
function psb_cdotv(x, y, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_spk_) :: psb_cdotv
|
||||
complex(psb_spk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_cdotv
|
||||
function psb_cdot(x, y, desc_a, info, jx, jy)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_spk_) :: psb_cdot
|
||||
complex(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, optional, intent(in) :: jx, jy
|
||||
integer, intent(out) :: info
|
||||
end function psb_cdot
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_gedots
|
||||
subroutine psb_cdotvs(res,x, y, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_spk_), intent(out) :: res
|
||||
complex(psb_spk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cdotvs
|
||||
subroutine psb_cmdots(res,x, y, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_spk_), intent(out) :: res(:)
|
||||
complex(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cmdots
|
||||
end interface
|
||||
|
||||
interface psb_geaxpby
|
||||
subroutine psb_caxpbyv(alpha, x, beta, y,&
|
||||
& desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
complex(psb_spk_), intent (inout) :: y(:)
|
||||
complex(psb_spk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_caxpbyv
|
||||
subroutine psb_caxpby(alpha, x, beta, y,&
|
||||
& desc_a, info, n, jx, jy)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
complex(psb_spk_), intent (inout) :: y(:,:)
|
||||
complex(psb_spk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_caxpby
|
||||
end interface
|
||||
|
||||
interface psb_geamax
|
||||
function psb_camax(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_camax
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_camax
|
||||
function psb_camaxv(x, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_camaxv
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_camaxv
|
||||
end interface
|
||||
|
||||
interface psb_geamaxs
|
||||
subroutine psb_camaxvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_camaxvs
|
||||
subroutine psb_cmamaxs(res,x,desc_a,info,jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res(:)
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: jx
|
||||
end subroutine psb_cmamaxs
|
||||
end interface
|
||||
|
||||
interface psb_geasum
|
||||
function psb_casum(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_casum
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_casum
|
||||
function psb_casumv(x, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_casumv
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_casumv
|
||||
end interface
|
||||
|
||||
interface psb_geasums
|
||||
subroutine psb_casumvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_casumvs
|
||||
subroutine psb_cmasum(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res(:)
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cmasum
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_genrm2
|
||||
function psb_cnrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_snrm2
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_cnrm2
|
||||
function psb_cnrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_cnrm2v
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_cnrm2v
|
||||
end interface
|
||||
|
||||
interface psb_genrm2s
|
||||
subroutine psb_cnrm2vs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cnrm2vs
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_spnrmi
|
||||
function psb_cnrmi(a, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
real(psb_spk_) :: psb_cnrmi
|
||||
type(psb_c_sparse_mat), intent (in) :: a
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_cnrmi
|
||||
end interface
|
||||
|
||||
interface psb_spmm
|
||||
subroutine psb_cspmm(alpha, a, x, beta, y, desc_a, info,&
|
||||
&trans, k, jx, jy,work,doswap)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_c_sparse_mat), intent(in) :: a
|
||||
complex(psb_spk_), intent(inout) :: x(:,:)
|
||||
complex(psb_spk_), intent(inout) :: y(:,:)
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
complex(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
integer, optional, intent(in) :: k, jx, jy
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cspmm
|
||||
subroutine psb_cspmv(alpha, a, x, beta, y,&
|
||||
& desc_a, info, trans, work,doswap)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_c_sparse_mat), intent(in) :: a
|
||||
complex(psb_spk_), intent(inout) :: x(:)
|
||||
complex(psb_spk_), intent(inout) :: y(:)
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
complex(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cspmv
|
||||
end interface
|
||||
|
||||
interface psb_spsm
|
||||
subroutine psb_cspsm(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, n, jx, jy, work)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_c_sparse_mat), intent(in) :: t
|
||||
complex(psb_spk_), intent(in) :: x(:,:)
|
||||
complex(psb_spk_), intent(inout) :: y(:,:)
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, optional, intent(in) :: choice
|
||||
complex(psb_spk_), optional, intent(in), target :: diag(:)
|
||||
complex(psb_spk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cspsm
|
||||
subroutine psb_cspsv(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, work)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_c_sparse_mat), intent(in) :: t
|
||||
complex(psb_spk_), intent(in) :: x(:)
|
||||
complex(psb_spk_), intent(inout) :: y(:)
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: choice
|
||||
complex(psb_spk_), optional, intent(in), target :: diag(:)
|
||||
complex(psb_spk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cspsv
|
||||
end interface
|
||||
|
||||
end module psb_c_psblas_mod
|
||||
@@ -70,7 +70,7 @@ Module psb_c_tools_mod
|
||||
Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
|
||||
& rowscale,colscale,outfmt,data)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
Type(psb_c_sparse_mat),Intent(in) :: a
|
||||
Type(psb_c_sparse_mat),Intent(inout) :: blk
|
||||
Type(psb_desc_type),Intent(in) :: desc_a
|
||||
@@ -86,13 +86,13 @@ Module psb_c_tools_mod
|
||||
use psb_descriptor_type
|
||||
complex(psb_spk_),allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cfree
|
||||
subroutine psb_cfreev(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_spk_),allocatable, intent(inout) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cfreev
|
||||
end interface
|
||||
|
||||
@@ -124,7 +124,7 @@ Module psb_c_tools_mod
|
||||
interface psb_cdbldext
|
||||
Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info,extype)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
integer, intent(in) :: novr
|
||||
Type(psb_c_sparse_mat), Intent(in) :: a
|
||||
Type(psb_desc_type), Intent(in), target :: desc_a
|
||||
@@ -137,7 +137,7 @@ Module psb_c_tools_mod
|
||||
interface psb_spall
|
||||
subroutine psb_cspalloc(a, desc_a, info, nnz)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_c_sparse_mat), intent(out) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -148,7 +148,7 @@ Module psb_c_tools_mod
|
||||
interface psb_spasb
|
||||
subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl,mold)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat, psb_c_base_sparse_mat
|
||||
type(psb_c_sparse_mat), intent (inout) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
@@ -161,7 +161,7 @@ Module psb_c_tools_mod
|
||||
interface psb_spfree
|
||||
subroutine psb_cspfree(a, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
type(psb_c_sparse_mat), intent(inout) ::a
|
||||
integer, intent(out) :: info
|
||||
@@ -172,7 +172,7 @@ Module psb_c_tools_mod
|
||||
interface psb_spins
|
||||
subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_c_sparse_mat), intent(inout) :: a
|
||||
integer, intent(in) :: nz,ia(:),ja(:)
|
||||
@@ -182,7 +182,7 @@ Module psb_c_tools_mod
|
||||
end subroutine psb_cspins
|
||||
subroutine psb_cspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_ar
|
||||
type(psb_desc_type), intent(inout) :: desc_ac
|
||||
type(psb_c_sparse_mat), intent(inout) :: a
|
||||
@@ -196,7 +196,7 @@ Module psb_c_tools_mod
|
||||
interface psb_sprn
|
||||
subroutine psb_csprn(a, desc_a,info,clear)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
type(psb_c_sparse_mat), intent(inout) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -219,7 +219,8 @@ Module psb_c_tools_mod
|
||||
|
||||
contains
|
||||
subroutine psb_clinmap_init(a_map,cd_xt,descin,descout)
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_c_mat_mod
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_penv_mod
|
||||
@@ -251,7 +252,8 @@ contains
|
||||
end subroutine psb_clinmap_init
|
||||
|
||||
subroutine psb_clinmap_ins(nz,ir,ic,val,a_map,cd_xt,descin,descout)
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_c_mat_mod
|
||||
use psb_descriptor_type
|
||||
implicit none
|
||||
integer, intent(in) :: nz
|
||||
@@ -267,7 +269,8 @@ contains
|
||||
end subroutine psb_clinmap_ins
|
||||
|
||||
subroutine psb_clinmap_asb(a_map,cd_xt,descin,descout,afmt)
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_c_mat_mod
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
implicit none
|
||||
|
||||
@@ -0,0 +1,272 @@
|
||||
!!$
|
||||
!!$ Parallel Sparse BLAS version 2.2
|
||||
!!$ (C) Copyright 2006/2007/2008
|
||||
!!$ Salvatore Filippone University of Rome Tor Vergata
|
||||
!!$ Alfredo Buttari University of Rome Tor Vergata
|
||||
!!$
|
||||
!!$ 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_psblas_mod
|
||||
|
||||
interface psb_gedot
|
||||
function psb_ddotv(x, y, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) :: psb_ddotv
|
||||
real(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_ddotv
|
||||
function psb_ddot(x, y, desc_a, info, jx, jy)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) :: psb_ddot
|
||||
real(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, optional, intent(in) :: jx, jy
|
||||
integer, intent(out) :: info
|
||||
end function psb_ddot
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_gedots
|
||||
subroutine psb_ddotvs(res,x, y, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent(out) :: res
|
||||
real(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_ddotvs
|
||||
subroutine psb_dmdots(res,x, y, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent(out) :: res(:)
|
||||
real(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dmdots
|
||||
end interface
|
||||
|
||||
interface psb_geaxpby
|
||||
subroutine psb_daxpbyv(alpha, x, beta, y,&
|
||||
& desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
real(psb_dpk_), intent (inout) :: y(:)
|
||||
real(psb_dpk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_daxpbyv
|
||||
subroutine psb_daxpby(alpha, x, beta, y,&
|
||||
& desc_a, info, n, jx, jy)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
real(psb_dpk_), intent (inout) :: y(:,:)
|
||||
real(psb_dpk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_daxpby
|
||||
end interface
|
||||
|
||||
interface psb_geamax
|
||||
function psb_damax(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_damax
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_damax
|
||||
function psb_damaxv(x, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_damaxv
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_damaxv
|
||||
end interface
|
||||
|
||||
interface psb_geamaxs
|
||||
subroutine psb_damaxvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_damaxvs
|
||||
subroutine psb_dmamaxs(res,x,desc_a,info,jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res(:)
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: jx
|
||||
end subroutine psb_dmamaxs
|
||||
end interface
|
||||
|
||||
interface psb_geasum
|
||||
function psb_dasum(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_dasum
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_dasum
|
||||
function psb_dasumv(x, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_dasumv
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_dasumv
|
||||
end interface
|
||||
|
||||
interface psb_geasums
|
||||
subroutine psb_dasumvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dasumvs
|
||||
subroutine psb_dmasum(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res(:)
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dmasum
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_genrm2
|
||||
function psb_dnrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_dnrm2
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_dnrm2
|
||||
function psb_dnrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_dnrm2v
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_dnrm2v
|
||||
end interface
|
||||
|
||||
interface psb_genrm2s
|
||||
subroutine psb_dnrm2vs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dnrm2vs
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_spnrmi
|
||||
function psb_dnrmi(a, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
real(psb_dpk_) :: psb_dnrmi
|
||||
type(psb_d_sparse_mat), intent (in) :: a
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_dnrmi
|
||||
end interface
|
||||
|
||||
interface psb_spmm
|
||||
subroutine psb_dspmm(alpha, a, x, beta, y, desc_a, info,&
|
||||
&trans, k, jx, jy,work,doswap)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_d_sparse_mat), intent(in) :: a
|
||||
real(psb_dpk_), intent(inout) :: x(:,:)
|
||||
real(psb_dpk_), intent(inout) :: y(:,:)
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
real(psb_dpk_), optional, intent(inout),target :: work(:)
|
||||
integer, optional, intent(in) :: k, jx, jy
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dspmm
|
||||
subroutine psb_dspmv(alpha, a, x, beta, y,&
|
||||
& desc_a, info, trans, work,doswap)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_d_sparse_mat), intent(in) :: a
|
||||
real(psb_dpk_), intent(inout) :: x(:)
|
||||
real(psb_dpk_), intent(inout) :: y(:)
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
real(psb_dpk_), optional, intent(inout),target :: work(:)
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dspmv
|
||||
end interface
|
||||
|
||||
interface psb_spsm
|
||||
subroutine psb_dspsm(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, n, jx, jy, work)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_d_sparse_mat), intent(in) :: t
|
||||
real(psb_dpk_), intent(in) :: x(:,:)
|
||||
real(psb_dpk_), intent(inout) :: y(:,:)
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, optional, intent(in) :: choice
|
||||
real(psb_dpk_), optional, intent(in), target :: diag(:)
|
||||
real(psb_dpk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dspsm
|
||||
subroutine psb_dspsv(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, work)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_d_sparse_mat), intent(in) :: t
|
||||
real(psb_dpk_), intent(in) :: x(:)
|
||||
real(psb_dpk_), intent(inout) :: y(:)
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: choice
|
||||
real(psb_dpk_), optional, intent(in), target :: diag(:)
|
||||
real(psb_dpk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dspsv
|
||||
end interface
|
||||
|
||||
end module psb_d_psblas_mod
|
||||
@@ -70,7 +70,7 @@ Module psb_d_tools_mod
|
||||
Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
|
||||
& rowscale,colscale,outfmt,data)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
Type(psb_d_sparse_mat),Intent(in) :: a
|
||||
Type(psb_d_sparse_mat),Intent(inout) :: blk
|
||||
Type(psb_desc_type),Intent(in),target :: desc_a
|
||||
@@ -86,13 +86,13 @@ Module psb_d_tools_mod
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_),allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dfree
|
||||
subroutine psb_dfreev(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_),allocatable, intent(inout) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dfreev
|
||||
end interface
|
||||
|
||||
@@ -123,7 +123,7 @@ Module psb_d_tools_mod
|
||||
interface psb_cdbldext
|
||||
Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info,extype)
|
||||
use psb_descriptor_type
|
||||
Use psb_mat_mod
|
||||
Use psb_mat_mod, only : psb_d_sparse_mat
|
||||
integer, intent(in) :: novr
|
||||
Type(psb_d_sparse_mat), Intent(in) :: a
|
||||
Type(psb_desc_type), Intent(in), target :: desc_a
|
||||
@@ -136,7 +136,7 @@ Module psb_d_tools_mod
|
||||
interface psb_spall
|
||||
subroutine psb_dspalloc(a, desc_a, info, nnz)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_d_sparse_mat), intent(out) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -147,7 +147,7 @@ Module psb_d_tools_mod
|
||||
interface psb_spasb
|
||||
subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl,mold)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat, psb_d_base_sparse_mat
|
||||
type(psb_d_sparse_mat), intent (inout) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
@@ -160,7 +160,7 @@ Module psb_d_tools_mod
|
||||
interface psb_spfree
|
||||
subroutine psb_dspfree(a, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
type(psb_d_sparse_mat), intent(inout) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -171,7 +171,7 @@ Module psb_d_tools_mod
|
||||
interface psb_spins
|
||||
subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_d_sparse_mat), intent(inout) :: a
|
||||
integer, intent(in) :: nz,ia(:),ja(:)
|
||||
@@ -181,7 +181,7 @@ Module psb_d_tools_mod
|
||||
end subroutine psb_dspins
|
||||
subroutine psb_dspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_d_sparse_mat), intent(inout) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_ar
|
||||
type(psb_desc_type), intent(inout) :: desc_ac
|
||||
@@ -195,7 +195,7 @@ Module psb_d_tools_mod
|
||||
interface psb_sprn
|
||||
subroutine psb_dsprn(a, desc_a,info,clear)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
type(psb_d_sparse_mat), intent(inout) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -223,7 +223,8 @@ contains
|
||||
use psb_serial_mod
|
||||
use psb_penv_mod
|
||||
use psb_error_mod
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_d_mat_mod
|
||||
implicit none
|
||||
type(psb_d_sparse_mat), intent(out) :: a_map
|
||||
type(psb_desc_type), intent(out) :: cd_xt
|
||||
@@ -250,7 +251,7 @@ contains
|
||||
end subroutine psb_dlinmap_init
|
||||
|
||||
subroutine psb_dlinmap_ins(nz,ir,ic,val,a_map,cd_xt,descin,descout)
|
||||
use psb_mat_mod
|
||||
use psb_d_mat_mod
|
||||
use psb_descriptor_type
|
||||
implicit none
|
||||
integer, intent(in) :: nz
|
||||
@@ -265,7 +266,8 @@ contains
|
||||
end subroutine psb_dlinmap_ins
|
||||
|
||||
subroutine psb_dlinmap_asb(a_map,cd_xt,descin,descout,afmt)
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_d_mat_mod
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
implicit none
|
||||
|
||||
@@ -451,7 +451,7 @@ contains
|
||||
|
||||
|
||||
function psb_slinmap_sizeof(map) result(val)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_sizeof
|
||||
implicit none
|
||||
type(psb_slinmap_type), intent(in) :: map
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -471,7 +471,7 @@ contains
|
||||
end function psb_slinmap_sizeof
|
||||
|
||||
function psb_dlinmap_sizeof(map) result(val)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_sizeof
|
||||
implicit none
|
||||
type(psb_dlinmap_type), intent(in) :: map
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -491,7 +491,7 @@ contains
|
||||
end function psb_dlinmap_sizeof
|
||||
|
||||
function psb_clinmap_sizeof(map) result(val)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_sizeof
|
||||
implicit none
|
||||
type(psb_clinmap_type), intent(in) :: map
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -511,7 +511,7 @@ contains
|
||||
end function psb_clinmap_sizeof
|
||||
|
||||
function psb_zlinmap_sizeof(map) result(val)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_sizeof
|
||||
implicit none
|
||||
type(psb_zlinmap_type), intent(in) :: map
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -579,7 +579,7 @@ contains
|
||||
subroutine psb_slinmap_transfer(mapin,mapout,info)
|
||||
use psb_realloc_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_move_alloc
|
||||
implicit none
|
||||
type(psb_slinmap_type) :: mapin,mapout
|
||||
integer, intent(out) :: info
|
||||
@@ -601,7 +601,7 @@ contains
|
||||
subroutine psb_dlinmap_transfer(mapin,mapout,info)
|
||||
use psb_realloc_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_move_alloc
|
||||
implicit none
|
||||
type(psb_dlinmap_type) :: mapin,mapout
|
||||
integer, intent(out) :: info
|
||||
@@ -622,7 +622,7 @@ contains
|
||||
|
||||
subroutine psb_clinmap_transfer(mapin,mapout,info)
|
||||
use psb_realloc_mod
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_move_alloc
|
||||
use psb_descriptor_type
|
||||
implicit none
|
||||
type(psb_clinmap_type) :: mapin,mapout
|
||||
@@ -644,7 +644,7 @@ contains
|
||||
|
||||
subroutine psb_zlinmap_transfer(mapin,mapout,info)
|
||||
use psb_realloc_mod
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_move_alloc
|
||||
use psb_descriptor_type
|
||||
implicit none
|
||||
type(psb_zlinmap_type) :: mapin,mapout
|
||||
|
||||
@@ -31,859 +31,10 @@
|
||||
!!$
|
||||
module psb_psblas_mod
|
||||
|
||||
interface psb_gedot
|
||||
function psb_sdotv(x, y, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) :: psb_sdotv
|
||||
real(psb_spk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_sdotv
|
||||
function psb_sdot(x, y, desc_a, info, jx, jy)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) :: psb_sdot
|
||||
real(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, optional, intent(in) :: jx, jy
|
||||
integer, intent(out) :: info
|
||||
end function psb_sdot
|
||||
function psb_ddotv(x, y, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) :: psb_ddotv
|
||||
real(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_ddotv
|
||||
function psb_ddot(x, y, desc_a, info, jx, jy)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) :: psb_ddot
|
||||
real(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, optional, intent(in) :: jx, jy
|
||||
integer, intent(out) :: info
|
||||
end function psb_ddot
|
||||
function psb_cdotv(x, y, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_spk_) :: psb_cdotv
|
||||
complex(psb_spk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_cdotv
|
||||
function psb_cdot(x, y, desc_a, info, jx, jy)
|
||||
use psb_descriptor_type
|
||||
complex(psb_spk_) :: psb_cdot
|
||||
complex(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, optional, intent(in) :: jx, jy
|
||||
integer, intent(out) :: info
|
||||
end function psb_cdot
|
||||
function psb_zdotv(x, y, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_dpk_) :: psb_zdotv
|
||||
complex(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_zdotv
|
||||
function psb_zdot(x, y, desc_a, info, jx, jy)
|
||||
use psb_descriptor_type
|
||||
complex(psb_dpk_) :: psb_zdot
|
||||
complex(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, optional, intent(in) :: jx, jy
|
||||
integer, intent(out) :: info
|
||||
end function psb_zdot
|
||||
end interface
|
||||
use psb_s_psblas_mod
|
||||
use psb_c_psblas_mod
|
||||
use psb_d_psblas_mod
|
||||
use psb_z_psblas_mod
|
||||
|
||||
|
||||
interface psb_gedots
|
||||
subroutine psb_sdotvs(res,x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent(out) :: res
|
||||
real(psb_spk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sdotvs
|
||||
subroutine psb_smdots(res,x, y, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent(out) :: res(:)
|
||||
real(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_smdots
|
||||
subroutine psb_ddotvs(res,x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent(out) :: res
|
||||
real(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_ddotvs
|
||||
subroutine psb_dmdots(res,x, y, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent(out) :: res(:)
|
||||
real(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dmdots
|
||||
subroutine psb_cdotvs(res,x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_spk_), intent(out) :: res
|
||||
complex(psb_spk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cdotvs
|
||||
subroutine psb_cmdots(res,x, y, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_spk_), intent(out) :: res(:)
|
||||
complex(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cmdots
|
||||
subroutine psb_zdotvs(res,x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_dpk_), intent(out) :: res
|
||||
complex(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zdotvs
|
||||
subroutine psb_zmdots(res,x, y, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_dpk_), intent(out) :: res(:)
|
||||
complex(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zmdots
|
||||
end interface
|
||||
|
||||
interface psb_geaxpby
|
||||
subroutine psb_saxpbyv(alpha, x, beta, y,&
|
||||
& desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
real(psb_spk_), intent (inout) :: y(:)
|
||||
real(psb_spk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_saxpbyv
|
||||
subroutine psb_saxpby(alpha, x, beta, y,&
|
||||
& desc_a, info, n, jx, jy)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
real(psb_spk_), intent (inout) :: y(:,:)
|
||||
real(psb_spk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_saxpby
|
||||
subroutine psb_daxpbyv(alpha, x, beta, y,&
|
||||
& desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
real(psb_dpk_), intent (inout) :: y(:)
|
||||
real(psb_dpk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_daxpbyv
|
||||
subroutine psb_daxpby(alpha, x, beta, y,&
|
||||
& desc_a, info, n, jx, jy)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
real(psb_dpk_), intent (inout) :: y(:,:)
|
||||
real(psb_dpk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_daxpby
|
||||
subroutine psb_caxpbyv(alpha, x, beta, y,&
|
||||
& desc_a, info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
complex(psb_spk_), intent (inout) :: y(:)
|
||||
complex(psb_spk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_caxpbyv
|
||||
subroutine psb_caxpby(alpha, x, beta, y,&
|
||||
& desc_a, info, n, jx, jy)
|
||||
use psb_descriptor_type
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
complex(psb_spk_), intent (inout) :: y(:,:)
|
||||
complex(psb_spk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_caxpby
|
||||
subroutine psb_zaxpbyv(alpha, x, beta, y,&
|
||||
& desc_a, info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
complex(psb_dpk_), intent (inout) :: y(:)
|
||||
complex(psb_dpk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zaxpbyv
|
||||
subroutine psb_zaxpby(alpha, x, beta, y,&
|
||||
& desc_a, info, n, jx, jy)
|
||||
use psb_descriptor_type
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
complex(psb_dpk_), intent (inout) :: y(:,:)
|
||||
complex(psb_dpk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zaxpby
|
||||
end interface
|
||||
|
||||
interface psb_geamax
|
||||
function psb_samax(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_samax
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_samax
|
||||
function psb_samaxv(x, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_samaxv
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_samaxv
|
||||
function psb_damax(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_damax
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_damax
|
||||
function psb_damaxv(x, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_damaxv
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_damaxv
|
||||
function psb_camax(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_camax
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_camax
|
||||
function psb_camaxv(x, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_camaxv
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_camaxv
|
||||
function psb_zamax(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_zamax
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_zamax
|
||||
function psb_zamaxv(x, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_zamaxv
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_zamaxv
|
||||
end interface
|
||||
|
||||
interface psb_geamaxs
|
||||
subroutine psb_samaxvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_samaxvs
|
||||
subroutine psb_smamaxs(res,x,desc_a,info,jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res(:)
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: jx
|
||||
end subroutine psb_smamaxs
|
||||
subroutine psb_damaxvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_damaxvs
|
||||
subroutine psb_dmamaxs(res,x,desc_a,info,jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res(:)
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: jx
|
||||
end subroutine psb_dmamaxs
|
||||
subroutine psb_camaxvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_camaxvs
|
||||
subroutine psb_cmamaxs(res,x,desc_a,info,jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res(:)
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: jx
|
||||
end subroutine psb_cmamaxs
|
||||
subroutine psb_zamaxvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zamaxvs
|
||||
subroutine psb_zmamaxs(res,x,desc_a,info,jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res(:)
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: jx
|
||||
end subroutine psb_zmamaxs
|
||||
end interface
|
||||
|
||||
interface psb_geasum
|
||||
function psb_sasum(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_sasum
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_sasum
|
||||
function psb_sasumv(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_sasumv
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_sasumv
|
||||
function psb_dasum(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_dasum
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_dasum
|
||||
function psb_dasumv(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_dasumv
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_dasumv
|
||||
function psb_casum(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_casum
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_casum
|
||||
function psb_casumv(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_casumv
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_casumv
|
||||
function psb_zasum(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_zasum
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_zasum
|
||||
function psb_zasumv(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_zasumv
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_zasumv
|
||||
end interface
|
||||
|
||||
interface psb_geasums
|
||||
subroutine psb_sasumvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sasumvs
|
||||
subroutine psb_smasum(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res(:)
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_smasum
|
||||
subroutine psb_dasumvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dasumvs
|
||||
subroutine psb_dmasum(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res(:)
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dmasum
|
||||
subroutine psb_casumvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_casumvs
|
||||
subroutine psb_cmasum(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res(:)
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cmasum
|
||||
subroutine psb_zasumvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zasumvs
|
||||
subroutine psb_zmasum(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res(:)
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zmasum
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_genrm2
|
||||
function psb_snrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_snrm2
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_snrm2
|
||||
function psb_snrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_snrm2v
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_snrm2v
|
||||
function psb_dnrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_dnrm2
|
||||
real(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_dnrm2
|
||||
function psb_dnrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_dnrm2v
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_dnrm2v
|
||||
function psb_cnrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_snrm2
|
||||
complex(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_cnrm2
|
||||
function psb_cnrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_) psb_cnrm2v
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_cnrm2v
|
||||
function psb_znrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_znrm2
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_znrm2
|
||||
function psb_znrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_) psb_znrm2v
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_znrm2v
|
||||
end interface
|
||||
|
||||
interface psb_genrm2s
|
||||
subroutine psb_snrm2vs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_snrm2vs
|
||||
subroutine psb_dnrm2vs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
real(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dnrm2vs
|
||||
subroutine psb_cnrm2vs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_), intent (out) :: res
|
||||
complex(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cnrm2vs
|
||||
subroutine psb_znrm2vs(res,x,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_znrm2vs
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_spnrmi
|
||||
function psb_snrmi(a, desc_a,info)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
real(psb_spk_) :: psb_snrmi
|
||||
type(psb_s_sparse_mat), intent (in) :: a
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_snrmi
|
||||
function psb_dnrmi(a, desc_a,info)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
real(psb_dpk_) :: psb_dnrmi
|
||||
type(psb_d_sparse_mat), intent (in) :: a
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_dnrmi
|
||||
function psb_cnrmi(a, desc_a,info)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
real(psb_spk_) :: psb_cnrmi
|
||||
type(psb_c_sparse_mat), intent (in) :: a
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_cnrmi
|
||||
function psb_znrmi(a, desc_a,info)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
real(psb_dpk_) :: psb_znrmi
|
||||
type(psb_z_sparse_mat), intent (in) :: a
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_znrmi
|
||||
end interface
|
||||
|
||||
interface psb_spmm
|
||||
subroutine psb_sspmm(alpha, a, x, beta, y, desc_a, info,&
|
||||
&trans, k, jx, jy,work,doswap)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_s_sparse_mat), intent(in) :: a
|
||||
real(psb_spk_), intent(inout) :: x(:,:)
|
||||
real(psb_spk_), intent(inout) :: y(:,:)
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
real(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
integer, optional, intent(in) :: k, jx, jy
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sspmm
|
||||
subroutine psb_sspmv(alpha, a, x, beta, y,&
|
||||
& desc_a, info, trans, work,doswap)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_s_sparse_mat), intent(in) :: a
|
||||
real(psb_spk_), intent(inout) :: x(:)
|
||||
real(psb_spk_), intent(inout) :: y(:)
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
real(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sspmv
|
||||
subroutine psb_dspmm(alpha, a, x, beta, y, desc_a, info,&
|
||||
&trans, k, jx, jy,work,doswap)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_d_sparse_mat), intent(in) :: a
|
||||
real(psb_dpk_), intent(inout) :: x(:,:)
|
||||
real(psb_dpk_), intent(inout) :: y(:,:)
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
real(psb_dpk_), optional, intent(inout),target :: work(:)
|
||||
integer, optional, intent(in) :: k, jx, jy
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dspmm
|
||||
subroutine psb_dspmv(alpha, a, x, beta, y,&
|
||||
& desc_a, info, trans, work,doswap)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_d_sparse_mat), intent(in) :: a
|
||||
real(psb_dpk_), intent(inout) :: x(:)
|
||||
real(psb_dpk_), intent(inout) :: y(:)
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
real(psb_dpk_), optional, intent(inout),target :: work(:)
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dspmv
|
||||
subroutine psb_cspmm(alpha, a, x, beta, y, desc_a, info,&
|
||||
&trans, k, jx, jy,work,doswap)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_c_sparse_mat), intent(in) :: a
|
||||
complex(psb_spk_), intent(inout) :: x(:,:)
|
||||
complex(psb_spk_), intent(inout) :: y(:,:)
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
complex(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
integer, optional, intent(in) :: k, jx, jy
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cspmm
|
||||
subroutine psb_cspmv(alpha, a, x, beta, y,&
|
||||
& desc_a, info, trans, work,doswap)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_c_sparse_mat), intent(in) :: a
|
||||
complex(psb_spk_), intent(inout) :: x(:)
|
||||
complex(psb_spk_), intent(inout) :: y(:)
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
complex(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cspmv
|
||||
subroutine psb_zspmm(alpha, a, x, beta, y, desc_a, info,&
|
||||
&trans, k, jx, jy,work,doswap)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_z_sparse_mat), intent(in) :: a
|
||||
complex(psb_dpk_), intent(inout) :: x(:,:)
|
||||
complex(psb_dpk_), intent(inout) :: y(:,:)
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
complex(psb_dpk_), optional, intent(inout),target :: work(:)
|
||||
integer, optional, intent(in) :: k, jx, jy
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zspmm
|
||||
subroutine psb_zspmv(alpha, a, x, beta, y,&
|
||||
& desc_a, info, trans, work,doswap)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_z_sparse_mat), intent(in) :: a
|
||||
complex(psb_dpk_), intent(inout) :: x(:)
|
||||
complex(psb_dpk_), intent(inout) :: y(:)
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
complex(psb_dpk_), optional, intent(inout),target :: work(:)
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zspmv
|
||||
end interface
|
||||
|
||||
interface psb_spsm
|
||||
subroutine psb_sspsm(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, n, jx, jy, work)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_s_sparse_mat), intent(in) :: t
|
||||
real(psb_spk_), intent(in) :: x(:,:)
|
||||
real(psb_spk_), intent(inout) :: y(:,:)
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, optional, intent(in) :: choice
|
||||
real(psb_spk_), optional, intent(in),target :: diag(:)
|
||||
real(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sspsm
|
||||
subroutine psb_sspsv(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, work)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_s_sparse_mat), intent(in) :: t
|
||||
real(psb_spk_), intent(in) :: x(:)
|
||||
real(psb_spk_), intent(inout) :: y(:)
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: choice
|
||||
real(psb_spk_), optional, intent(in), target :: diag(:)
|
||||
real(psb_spk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sspsv
|
||||
subroutine psb_dspsm(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, n, jx, jy, work)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_d_sparse_mat), intent(in) :: t
|
||||
real(psb_dpk_), intent(in) :: x(:,:)
|
||||
real(psb_dpk_), intent(inout) :: y(:,:)
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, optional, intent(in) :: choice
|
||||
real(psb_dpk_), optional, intent(in), target :: diag(:)
|
||||
real(psb_dpk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dspsm
|
||||
subroutine psb_dspsv(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, work)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_d_sparse_mat), intent(in) :: t
|
||||
real(psb_dpk_), intent(in) :: x(:)
|
||||
real(psb_dpk_), intent(inout) :: y(:)
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: choice
|
||||
real(psb_dpk_), optional, intent(in), target :: diag(:)
|
||||
real(psb_dpk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dspsv
|
||||
subroutine psb_cspsm(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, n, jx, jy, work)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_c_sparse_mat), intent(in) :: t
|
||||
complex(psb_spk_), intent(in) :: x(:,:)
|
||||
complex(psb_spk_), intent(inout) :: y(:,:)
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, optional, intent(in) :: choice
|
||||
complex(psb_spk_), optional, intent(in), target :: diag(:)
|
||||
complex(psb_spk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cspsm
|
||||
subroutine psb_cspsv(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, work)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_c_sparse_mat), intent(in) :: t
|
||||
complex(psb_spk_), intent(in) :: x(:)
|
||||
complex(psb_spk_), intent(inout) :: y(:)
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: choice
|
||||
complex(psb_spk_), optional, intent(in), target :: diag(:)
|
||||
complex(psb_spk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cspsv
|
||||
subroutine psb_zspsm(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, n, jx, jy, work)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_z_sparse_mat), intent(in) :: t
|
||||
complex(psb_dpk_), intent(in) :: x(:,:)
|
||||
complex(psb_dpk_), intent(inout) :: y(:,:)
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, optional, intent(in) :: choice
|
||||
complex(psb_dpk_), optional, intent(in), target :: diag(:)
|
||||
complex(psb_dpk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zspsm
|
||||
subroutine psb_zspsv(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, work)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
type(psb_z_sparse_mat), intent(in) :: t
|
||||
complex(psb_dpk_), intent(in) :: x(:)
|
||||
complex(psb_dpk_), intent(inout) :: y(:)
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: choice
|
||||
complex(psb_dpk_), optional, intent(in), target :: diag(:)
|
||||
complex(psb_dpk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zspsv
|
||||
end interface
|
||||
|
||||
end module psb_psblas_mod
|
||||
|
||||
@@ -0,0 +1,272 @@
|
||||
!!$
|
||||
!!$ Parallel Sparse BLAS version 2.2
|
||||
!!$ (C) Copyright 2006/2007/2008
|
||||
!!$ Salvatore Filippone University of Rome Tor Vergata
|
||||
!!$ Alfredo Buttari University of Rome Tor Vergata
|
||||
!!$
|
||||
!!$ 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_psblas_mod
|
||||
|
||||
interface psb_gedot
|
||||
function psb_sdotv(x, y, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) :: psb_sdotv
|
||||
real(psb_spk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_sdotv
|
||||
function psb_sdot(x, y, desc_a, info, jx, jy)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) :: psb_sdot
|
||||
real(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, optional, intent(in) :: jx, jy
|
||||
integer, intent(out) :: info
|
||||
end function psb_sdot
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_gedots
|
||||
subroutine psb_sdotvs(res,x, y, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent(out) :: res
|
||||
real(psb_spk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sdotvs
|
||||
subroutine psb_smdots(res,x, y, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent(out) :: res(:)
|
||||
real(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_smdots
|
||||
end interface
|
||||
|
||||
interface psb_geaxpby
|
||||
subroutine psb_saxpbyv(alpha, x, beta, y,&
|
||||
& desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
real(psb_spk_), intent (inout) :: y(:)
|
||||
real(psb_spk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_saxpbyv
|
||||
subroutine psb_saxpby(alpha, x, beta, y,&
|
||||
& desc_a, info, n, jx, jy)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
real(psb_spk_), intent (inout) :: y(:,:)
|
||||
real(psb_spk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_saxpby
|
||||
end interface
|
||||
|
||||
interface psb_geamax
|
||||
function psb_samax(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_samax
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_samax
|
||||
function psb_samaxv(x, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_samaxv
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_samaxv
|
||||
end interface
|
||||
|
||||
interface psb_geamaxs
|
||||
subroutine psb_samaxvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_samaxvs
|
||||
subroutine psb_smamaxs(res,x,desc_a,info,jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res(:)
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: jx
|
||||
end subroutine psb_smamaxs
|
||||
end interface
|
||||
|
||||
interface psb_geasum
|
||||
function psb_sasum(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_sasum
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_sasum
|
||||
function psb_sasumv(x, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_sasumv
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_sasumv
|
||||
end interface
|
||||
|
||||
interface psb_geasums
|
||||
subroutine psb_sasumvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sasumvs
|
||||
subroutine psb_smasum(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res(:)
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_smasum
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_genrm2
|
||||
function psb_snrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_snrm2
|
||||
real(psb_spk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_snrm2
|
||||
function psb_snrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_) psb_snrm2v
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_snrm2v
|
||||
end interface
|
||||
|
||||
interface psb_genrm2s
|
||||
subroutine psb_snrm2vs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_spk_), intent (out) :: res
|
||||
real(psb_spk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_snrm2vs
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_spnrmi
|
||||
function psb_snrmi(a, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
real(psb_spk_) :: psb_snrmi
|
||||
type(psb_s_sparse_mat), intent (in) :: a
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_snrmi
|
||||
end interface
|
||||
|
||||
interface psb_spmm
|
||||
subroutine psb_sspmm(alpha, a, x, beta, y, desc_a, info,&
|
||||
&trans, k, jx, jy,work,doswap)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_s_sparse_mat), intent(in) :: a
|
||||
real(psb_spk_), intent(inout) :: x(:,:)
|
||||
real(psb_spk_), intent(inout) :: y(:,:)
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
real(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
integer, optional, intent(in) :: k, jx, jy
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sspmm
|
||||
subroutine psb_sspmv(alpha, a, x, beta, y,&
|
||||
& desc_a, info, trans, work,doswap)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_s_sparse_mat), intent(in) :: a
|
||||
real(psb_spk_), intent(inout) :: x(:)
|
||||
real(psb_spk_), intent(inout) :: y(:)
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
real(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sspmv
|
||||
end interface
|
||||
|
||||
interface psb_spsm
|
||||
subroutine psb_sspsm(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, n, jx, jy, work)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_s_sparse_mat), intent(in) :: t
|
||||
real(psb_spk_), intent(in) :: x(:,:)
|
||||
real(psb_spk_), intent(inout) :: y(:,:)
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, optional, intent(in) :: choice
|
||||
real(psb_spk_), optional, intent(in),target :: diag(:)
|
||||
real(psb_spk_), optional, intent(inout),target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sspsm
|
||||
subroutine psb_sspsv(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, work)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_s_sparse_mat), intent(in) :: t
|
||||
real(psb_spk_), intent(in) :: x(:)
|
||||
real(psb_spk_), intent(inout) :: y(:)
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: choice
|
||||
real(psb_spk_), optional, intent(in), target :: diag(:)
|
||||
real(psb_spk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sspsv
|
||||
end interface
|
||||
|
||||
end module psb_s_psblas_mod
|
||||
@@ -70,7 +70,7 @@ Module psb_s_tools_mod
|
||||
Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
|
||||
& rowscale,colscale,outfmt,data)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
Type(psb_s_sparse_mat),Intent(in) :: a
|
||||
Type(psb_s_sparse_mat),Intent(inout) :: blk
|
||||
Type(psb_desc_type),Intent(in),target :: desc_a
|
||||
@@ -87,13 +87,13 @@ Module psb_s_tools_mod
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_),allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sfree
|
||||
subroutine psb_sfreev(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
real(psb_spk_),allocatable, intent(inout) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sfreev
|
||||
end interface
|
||||
|
||||
@@ -124,7 +124,7 @@ Module psb_s_tools_mod
|
||||
interface psb_cdbldext
|
||||
Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info,extype)
|
||||
use psb_descriptor_type
|
||||
Use psb_mat_mod
|
||||
Use psb_mat_mod, only : psb_s_sparse_mat
|
||||
integer, intent(in) :: novr
|
||||
Type(psb_s_sparse_mat), Intent(in) :: a
|
||||
Type(psb_desc_type), Intent(in), target :: desc_a
|
||||
@@ -137,7 +137,7 @@ Module psb_s_tools_mod
|
||||
interface psb_spall
|
||||
subroutine psb_sspalloc(a, desc_a, info, nnz)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_s_sparse_mat), intent(out) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -148,7 +148,7 @@ Module psb_s_tools_mod
|
||||
interface psb_spasb
|
||||
subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_base_sparse_mat, psb_s_sparse_mat
|
||||
type(psb_s_sparse_mat), intent (inout) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
@@ -161,7 +161,7 @@ Module psb_s_tools_mod
|
||||
interface psb_spfree
|
||||
subroutine psb_sspfree(a, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
type(psb_s_sparse_mat), intent(inout) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -172,7 +172,7 @@ Module psb_s_tools_mod
|
||||
interface psb_spins
|
||||
subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_s_sparse_mat), intent(inout) :: a
|
||||
integer, intent(in) :: nz,ia(:),ja(:)
|
||||
@@ -182,7 +182,7 @@ Module psb_s_tools_mod
|
||||
end subroutine psb_sspins
|
||||
subroutine psb_sspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_ar
|
||||
type(psb_desc_type), intent(inout) :: desc_ac
|
||||
type(psb_s_sparse_mat), intent(inout) :: a
|
||||
@@ -196,7 +196,7 @@ Module psb_s_tools_mod
|
||||
interface psb_sprn
|
||||
subroutine psb_ssprn(a, desc_a,info,clear)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
type(psb_s_sparse_mat), intent(inout) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -225,7 +225,8 @@ contains
|
||||
use psb_serial_mod
|
||||
use psb_penv_mod
|
||||
use psb_error_mod
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_s_mat_mod
|
||||
implicit none
|
||||
type(psb_s_sparse_mat), intent(out) :: a_map
|
||||
type(psb_desc_type), intent(out) :: cd_xt
|
||||
@@ -252,7 +253,7 @@ contains
|
||||
end subroutine psb_slinmap_init
|
||||
|
||||
subroutine psb_slinmap_ins(nz,ir,ic,val,a_map,cd_xt,descin,descout)
|
||||
use psb_mat_mod
|
||||
use psb_s_mat_mod
|
||||
use psb_descriptor_type
|
||||
implicit none
|
||||
integer, intent(in) :: nz
|
||||
@@ -267,7 +268,8 @@ contains
|
||||
end subroutine psb_slinmap_ins
|
||||
|
||||
subroutine psb_slinmap_asb(a_map,cd_xt,descin,descout,afmt)
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_s_mat_mod
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
implicit none
|
||||
|
||||
@@ -40,60 +40,60 @@ module psb_serial_mod
|
||||
& psb_gth => psi_gth,&
|
||||
& psb_sct => psi_sct
|
||||
|
||||
use psb_mat_mod
|
||||
!!$ use psb_mat_mod
|
||||
|
||||
interface psb_symbmm
|
||||
subroutine psb_ssymbmm(a,b,c,info)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
implicit none
|
||||
type(psb_s_sparse_mat), intent(in) :: a,b
|
||||
type(psb_s_sparse_mat), intent(out) :: c
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_ssymbmm
|
||||
subroutine psb_sbase_symbmm(a,b,c,info)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_base_sparse_mat, psb_s_csr_sparse_mat
|
||||
implicit none
|
||||
class(psb_s_base_sparse_mat), intent(in) :: a,b
|
||||
type(psb_s_csr_sparse_mat), intent(out) :: c
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_sbase_symbmm
|
||||
subroutine psb_dsymbmm(a,b,c,info)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
implicit none
|
||||
type(psb_d_sparse_mat), intent(in) :: a,b
|
||||
type(psb_d_sparse_mat), intent(out) :: c
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dsymbmm
|
||||
subroutine psb_dbase_symbmm(a,b,c,info)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_base_sparse_mat, psb_d_csr_sparse_mat
|
||||
implicit none
|
||||
class(psb_d_base_sparse_mat), intent(in) :: a,b
|
||||
type(psb_d_csr_sparse_mat), intent(out) :: c
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_dbase_symbmm
|
||||
subroutine psb_csymbmm(a,b,c,info)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
implicit none
|
||||
type(psb_c_sparse_mat), intent(in) :: a,b
|
||||
type(psb_c_sparse_mat), intent(out) :: c
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_csymbmm
|
||||
subroutine psb_cbase_symbmm(a,b,c,info)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_base_sparse_mat, psb_c_csr_sparse_mat
|
||||
implicit none
|
||||
class(psb_c_base_sparse_mat), intent(in) :: a,b
|
||||
type(psb_c_csr_sparse_mat), intent(out) :: c
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_cbase_symbmm
|
||||
subroutine psb_zsymbmm(a,b,c,info)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
implicit none
|
||||
type(psb_z_sparse_mat), intent(in) :: a,b
|
||||
type(psb_z_sparse_mat), intent(out) :: c
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zsymbmm
|
||||
subroutine psb_zbase_symbmm(a,b,c,info)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_base_sparse_mat, psb_z_csr_sparse_mat
|
||||
implicit none
|
||||
class(psb_z_base_sparse_mat), intent(in) :: a,b
|
||||
type(psb_z_csr_sparse_mat), intent(out) :: c
|
||||
@@ -103,49 +103,49 @@ module psb_serial_mod
|
||||
|
||||
interface psb_numbmm
|
||||
subroutine psb_snumbmm(a,b,c)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
implicit none
|
||||
type(psb_s_sparse_mat), intent(in) :: a,b
|
||||
type(psb_s_sparse_mat), intent(inout) :: c
|
||||
end subroutine psb_snumbmm
|
||||
subroutine psb_sbase_numbmm(a,b,c)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_base_sparse_mat, psb_s_csr_sparse_mat
|
||||
implicit none
|
||||
class(psb_s_base_sparse_mat), intent(in) :: a,b
|
||||
type(psb_s_csr_sparse_mat), intent(inout) :: c
|
||||
end subroutine psb_sbase_numbmm
|
||||
subroutine psb_dnumbmm(a,b,c)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
implicit none
|
||||
type(psb_d_sparse_mat), intent(in) :: a,b
|
||||
type(psb_d_sparse_mat), intent(inout) :: c
|
||||
end subroutine psb_dnumbmm
|
||||
subroutine psb_dbase_numbmm(a,b,c)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_base_sparse_mat, psb_d_csr_sparse_mat
|
||||
implicit none
|
||||
class(psb_d_base_sparse_mat), intent(in) :: a,b
|
||||
type(psb_d_csr_sparse_mat), intent(inout) :: c
|
||||
end subroutine psb_dbase_numbmm
|
||||
subroutine psb_cnumbmm(a,b,c)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
implicit none
|
||||
type(psb_c_sparse_mat), intent(in) :: a,b
|
||||
type(psb_c_sparse_mat), intent(inout) :: c
|
||||
end subroutine psb_cnumbmm
|
||||
subroutine psb_cbase_numbmm(a,b,c)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_base_sparse_mat, psb_c_csr_sparse_mat
|
||||
implicit none
|
||||
class(psb_c_base_sparse_mat), intent(in) :: a,b
|
||||
type(psb_c_csr_sparse_mat), intent(inout) :: c
|
||||
end subroutine psb_cbase_numbmm
|
||||
subroutine psb_znumbmm(a,b,c)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
implicit none
|
||||
type(psb_z_sparse_mat), intent(in) :: a,b
|
||||
type(psb_z_sparse_mat), intent(inout) :: c
|
||||
end subroutine psb_znumbmm
|
||||
subroutine psb_zbase_numbmm(a,b,c)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_base_sparse_mat, psb_z_csr_sparse_mat
|
||||
implicit none
|
||||
class(psb_z_base_sparse_mat), intent(in) :: a,b
|
||||
type(psb_z_csr_sparse_mat), intent(inout) :: c
|
||||
@@ -154,7 +154,7 @@ module psb_serial_mod
|
||||
|
||||
interface psb_rwextd
|
||||
subroutine psb_srwextd(nr,a,info,b,rowscale)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_sparse_mat
|
||||
implicit none
|
||||
integer, intent(in) :: nr
|
||||
type(psb_s_sparse_mat), intent(inout) :: a
|
||||
@@ -163,7 +163,7 @@ module psb_serial_mod
|
||||
logical,intent(in), optional :: rowscale
|
||||
end subroutine psb_srwextd
|
||||
subroutine psb_sbase_rwextd(nr,a,info,b,rowscale)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_s_base_sparse_mat
|
||||
implicit none
|
||||
integer, intent(in) :: nr
|
||||
class(psb_s_base_sparse_mat), intent(inout) :: a
|
||||
@@ -172,7 +172,7 @@ module psb_serial_mod
|
||||
logical,intent(in), optional :: rowscale
|
||||
end subroutine psb_sbase_rwextd
|
||||
subroutine psb_drwextd(nr,a,info,b,rowscale)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_sparse_mat
|
||||
implicit none
|
||||
integer, intent(in) :: nr
|
||||
type(psb_d_sparse_mat), intent(inout) :: a
|
||||
@@ -181,7 +181,7 @@ module psb_serial_mod
|
||||
logical,intent(in), optional :: rowscale
|
||||
end subroutine psb_drwextd
|
||||
subroutine psb_dbase_rwextd(nr,a,info,b,rowscale)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_d_base_sparse_mat
|
||||
implicit none
|
||||
integer, intent(in) :: nr
|
||||
class(psb_d_base_sparse_mat), intent(inout) :: a
|
||||
@@ -190,7 +190,7 @@ module psb_serial_mod
|
||||
logical,intent(in), optional :: rowscale
|
||||
end subroutine psb_dbase_rwextd
|
||||
subroutine psb_crwextd(nr,a,info,b,rowscale)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_sparse_mat
|
||||
implicit none
|
||||
integer, intent(in) :: nr
|
||||
type(psb_c_sparse_mat), intent(inout) :: a
|
||||
@@ -199,7 +199,7 @@ module psb_serial_mod
|
||||
logical,intent(in), optional :: rowscale
|
||||
end subroutine psb_crwextd
|
||||
subroutine psb_cbase_rwextd(nr,a,info,b,rowscale)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_c_base_sparse_mat
|
||||
implicit none
|
||||
integer, intent(in) :: nr
|
||||
class(psb_c_base_sparse_mat), intent(inout) :: a
|
||||
@@ -208,7 +208,7 @@ module psb_serial_mod
|
||||
logical,intent(in), optional :: rowscale
|
||||
end subroutine psb_cbase_rwextd
|
||||
subroutine psb_zrwextd(nr,a,info,b,rowscale)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
implicit none
|
||||
integer, intent(in) :: nr
|
||||
type(psb_z_sparse_mat), intent(inout) :: a
|
||||
@@ -217,7 +217,7 @@ module psb_serial_mod
|
||||
logical,intent(in), optional :: rowscale
|
||||
end subroutine psb_zrwextd
|
||||
subroutine psb_zbase_rwextd(nr,a,info,b,rowscale)
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_base_sparse_mat
|
||||
implicit none
|
||||
integer, intent(in) :: nr
|
||||
class(psb_z_base_sparse_mat), intent(inout) :: a
|
||||
|
||||
@@ -0,0 +1,272 @@
|
||||
!!$
|
||||
!!$ Parallel Sparse BLAS version 2.2
|
||||
!!$ (C) Copyright 2006/2007/2008
|
||||
!!$ Salvatore Filippone University of Rome Tor Vergata
|
||||
!!$ Alfredo Buttari University of Rome Tor Vergata
|
||||
!!$
|
||||
!!$ 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_psblas_mod
|
||||
|
||||
interface psb_gedot
|
||||
function psb_zdotv(x, y, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_dpk_) :: psb_zdotv
|
||||
complex(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_zdotv
|
||||
function psb_zdot(x, y, desc_a, info, jx, jy)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_dpk_) :: psb_zdot
|
||||
complex(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, optional, intent(in) :: jx, jy
|
||||
integer, intent(out) :: info
|
||||
end function psb_zdot
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_gedots
|
||||
subroutine psb_zdotvs(res,x, y, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_dpk_), intent(out) :: res
|
||||
complex(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zdotvs
|
||||
subroutine psb_zmdots(res,x, y, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_dpk_), intent(out) :: res(:)
|
||||
complex(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zmdots
|
||||
end interface
|
||||
|
||||
interface psb_geaxpby
|
||||
subroutine psb_zaxpbyv(alpha, x, beta, y,&
|
||||
& desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
complex(psb_dpk_), intent (inout) :: y(:)
|
||||
complex(psb_dpk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zaxpbyv
|
||||
subroutine psb_zaxpby(alpha, x, beta, y,&
|
||||
& desc_a, info, n, jx, jy)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
complex(psb_dpk_), intent (inout) :: y(:,:)
|
||||
complex(psb_dpk_), intent (in) :: alpha, beta
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zaxpby
|
||||
end interface
|
||||
|
||||
interface psb_geamax
|
||||
function psb_zamax(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_zamax
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_zamax
|
||||
function psb_zamaxv(x, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_zamaxv
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_zamaxv
|
||||
end interface
|
||||
|
||||
interface psb_geamaxs
|
||||
subroutine psb_zamaxvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zamaxvs
|
||||
subroutine psb_zmamaxs(res,x,desc_a,info,jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res(:)
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: jx
|
||||
end subroutine psb_zmamaxs
|
||||
end interface
|
||||
|
||||
interface psb_geasum
|
||||
function psb_zasum(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_zasum
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_zasum
|
||||
function psb_zasumv(x, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_zasumv
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_zasumv
|
||||
end interface
|
||||
|
||||
interface psb_geasums
|
||||
subroutine psb_zasumvs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zasumvs
|
||||
subroutine psb_zmasum(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res(:)
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zmasum
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_genrm2
|
||||
function psb_znrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_znrm2
|
||||
complex(psb_dpk_), intent (in) :: x(:,:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, optional, intent (in) :: jx
|
||||
integer, intent(out) :: info
|
||||
end function psb_znrm2
|
||||
function psb_znrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_) psb_znrm2v
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_znrm2v
|
||||
end interface
|
||||
|
||||
interface psb_genrm2s
|
||||
subroutine psb_znrm2vs(res,x,desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
real(psb_dpk_), intent (out) :: res
|
||||
complex(psb_dpk_), intent (in) :: x(:)
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_znrm2vs
|
||||
end interface
|
||||
|
||||
|
||||
interface psb_spnrmi
|
||||
function psb_znrmi(a, desc_a,info)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
real(psb_dpk_) :: psb_znrmi
|
||||
type(psb_z_sparse_mat), intent (in) :: a
|
||||
type(psb_desc_type), intent (in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
end function psb_znrmi
|
||||
end interface
|
||||
|
||||
interface psb_spmm
|
||||
subroutine psb_zspmm(alpha, a, x, beta, y, desc_a, info,&
|
||||
&trans, k, jx, jy,work,doswap)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_z_sparse_mat), intent(in) :: a
|
||||
complex(psb_dpk_), intent(inout) :: x(:,:)
|
||||
complex(psb_dpk_), intent(inout) :: y(:,:)
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
complex(psb_dpk_), optional, intent(inout),target :: work(:)
|
||||
integer, optional, intent(in) :: k, jx, jy
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zspmm
|
||||
subroutine psb_zspmv(alpha, a, x, beta, y,&
|
||||
& desc_a, info, trans, work,doswap)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_z_sparse_mat), intent(in) :: a
|
||||
complex(psb_dpk_), intent(inout) :: x(:)
|
||||
complex(psb_dpk_), intent(inout) :: y(:)
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans
|
||||
complex(psb_dpk_), optional, intent(inout),target :: work(:)
|
||||
logical, optional, intent(in) :: doswap
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zspmv
|
||||
end interface
|
||||
|
||||
interface psb_spsm
|
||||
subroutine psb_zspsm(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, n, jx, jy, work)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_z_sparse_mat), intent(in) :: t
|
||||
complex(psb_dpk_), intent(in) :: x(:,:)
|
||||
complex(psb_dpk_), intent(inout) :: y(:,:)
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: n, jx, jy
|
||||
integer, optional, intent(in) :: choice
|
||||
complex(psb_dpk_), optional, intent(in), target :: diag(:)
|
||||
complex(psb_dpk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zspsm
|
||||
subroutine psb_zspsv(alpha, t, x, beta, y,&
|
||||
& desc_a, info, trans, scale, choice,&
|
||||
& diag, work)
|
||||
use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_dpk_
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_z_sparse_mat), intent(in) :: t
|
||||
complex(psb_dpk_), intent(in) :: x(:)
|
||||
complex(psb_dpk_), intent(inout) :: y(:)
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
character, optional, intent(in) :: trans, scale
|
||||
integer, optional, intent(in) :: choice
|
||||
complex(psb_dpk_), optional, intent(in), target :: diag(:)
|
||||
complex(psb_dpk_), optional, intent(inout), target :: work(:)
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zspsv
|
||||
end interface
|
||||
|
||||
end module psb_z_psblas_mod
|
||||
@@ -69,7 +69,7 @@ Module psb_z_tools_mod
|
||||
Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
|
||||
& rowscale,colscale,outfmt,data)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
Type(psb_z_sparse_mat),Intent(in) :: a
|
||||
Type(psb_z_sparse_mat),Intent(inout) :: blk
|
||||
Type(psb_desc_type),Intent(in) :: desc_a
|
||||
@@ -85,13 +85,13 @@ Module psb_z_tools_mod
|
||||
use psb_descriptor_type
|
||||
complex(psb_dpk_),allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zfree
|
||||
subroutine psb_zfreev(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
complex(psb_dpk_),allocatable, intent(inout) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
end subroutine psb_zfreev
|
||||
end interface
|
||||
|
||||
@@ -124,7 +124,7 @@ Module psb_z_tools_mod
|
||||
interface psb_cdbldext
|
||||
Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info,extype)
|
||||
use psb_descriptor_type
|
||||
Use psb_mat_mod
|
||||
Use psb_mat_mod, only : psb_z_sparse_mat
|
||||
integer, intent(in) :: novr
|
||||
Type(psb_z_sparse_mat), Intent(in) :: a
|
||||
Type(psb_desc_type), Intent(in), target :: desc_a
|
||||
@@ -137,7 +137,7 @@ Module psb_z_tools_mod
|
||||
interface psb_spall
|
||||
subroutine psb_zspalloc(a, desc_a, info, nnz)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_z_sparse_mat), intent(out) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -148,7 +148,7 @@ Module psb_z_tools_mod
|
||||
interface psb_spasb
|
||||
subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl,mold)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat, psb_z_base_sparse_mat
|
||||
type(psb_z_sparse_mat), intent (inout) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
@@ -161,7 +161,7 @@ Module psb_z_tools_mod
|
||||
interface psb_spfree
|
||||
subroutine psb_zspfree(a, desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
type(psb_z_sparse_mat), intent(inout) ::a
|
||||
integer, intent(out) :: info
|
||||
@@ -172,7 +172,7 @@ Module psb_z_tools_mod
|
||||
interface psb_spins
|
||||
subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_z_sparse_mat), intent(inout) :: a
|
||||
integer, intent(in) :: nz,ia(:),ja(:)
|
||||
@@ -182,7 +182,7 @@ Module psb_z_tools_mod
|
||||
end subroutine psb_zspins
|
||||
subroutine psb_zspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_ar
|
||||
type(psb_desc_type), intent(inout) :: desc_ac
|
||||
type(psb_z_sparse_mat), intent(inout) :: a
|
||||
@@ -196,7 +196,7 @@ Module psb_z_tools_mod
|
||||
interface psb_sprn
|
||||
subroutine psb_zsprn(a, desc_a,info,clear)
|
||||
use psb_descriptor_type
|
||||
use psb_mat_mod
|
||||
use psb_mat_mod, only : psb_z_sparse_mat
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
type(psb_z_sparse_mat), intent(inout) :: a
|
||||
integer, intent(out) :: info
|
||||
@@ -221,7 +221,8 @@ contains
|
||||
|
||||
|
||||
subroutine psb_zlinmap_init(a_map,cd_xt,descin,descout)
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_z_mat_mod
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_penv_mod
|
||||
@@ -253,7 +254,8 @@ contains
|
||||
end subroutine psb_zlinmap_init
|
||||
|
||||
subroutine psb_zlinmap_ins(nz,ir,ic,val,a_map,cd_xt,descin,descout)
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_z_mat_mod
|
||||
use psb_descriptor_type
|
||||
implicit none
|
||||
integer, intent(in) :: nz
|
||||
@@ -269,7 +271,8 @@ contains
|
||||
end subroutine psb_zlinmap_ins
|
||||
|
||||
subroutine psb_zlinmap_asb(a_map,cd_xt,descin,descout,afmt)
|
||||
use psb_mat_mod
|
||||
use psb_base_tools_mod
|
||||
use psb_z_mat_mod
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
implicit none
|
||||
|
||||
@@ -44,12 +44,9 @@
|
||||
! info - integer. Return code
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
function psb_camax (x,desc_a, info, jx)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
function psb_camax(x,desc_a, info, jx)
|
||||
use psb_sparse_mod, psb_protect_name => psb_camax
|
||||
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:,:)
|
||||
@@ -178,11 +175,8 @@ end function psb_camax
|
||||
! info - integer. Return code
|
||||
!
|
||||
function psb_camaxv (x,desc_a, info)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_camaxv
|
||||
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:)
|
||||
@@ -309,11 +303,8 @@ end function psb_camaxv
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
subroutine psb_camaxvs(res,x,desc_a, info)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_camaxvs
|
||||
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:)
|
||||
@@ -437,11 +428,8 @@ end subroutine psb_camaxvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_cmamaxs(res,x,desc_a, info,jx)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cmamaxs
|
||||
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:,:)
|
||||
|
||||
@@ -45,12 +45,8 @@
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
function psb_casum (x,desc_a, info, jx)
|
||||
use psb_sparse_mod, psb_protect_name => psb_casum
|
||||
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:,:)
|
||||
@@ -191,12 +187,8 @@ end function psb_casum
|
||||
! info - integer. Return code
|
||||
!
|
||||
function psb_casumv(x,desc_a, info)
|
||||
use psb_sparse_mod, psb_protect_name => psb_casumv
|
||||
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:)
|
||||
@@ -333,11 +325,8 @@ end function psb_casumv
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
subroutine psb_casumvs(res,x,desc_a, info)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_casumvs
|
||||
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:)
|
||||
|
||||
@@ -51,11 +51,8 @@
|
||||
! jy - integer(optional) The column offset for Y
|
||||
!
|
||||
subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_caxpby
|
||||
|
||||
implicit none
|
||||
|
||||
integer, intent(in), optional :: n, jx, jy
|
||||
@@ -205,11 +202,7 @@ end subroutine psb_caxpby
|
||||
!
|
||||
!
|
||||
subroutine psb_caxpbyv(alpha, x, beta,y,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_caxpbyv
|
||||
implicit none
|
||||
|
||||
integer, intent(out) :: info
|
||||
|
||||
@@ -49,10 +49,7 @@
|
||||
! jy - integer(optional). The column offset for sub( Y ).
|
||||
!
|
||||
function psb_cdot(x, y,desc_a, info, jx, jy)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cdot
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
@@ -202,10 +199,7 @@ end function psb_cdot
|
||||
! info - integer. Return code
|
||||
!
|
||||
function psb_cdotv(x, y,desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cdotv
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:), y(:)
|
||||
@@ -339,10 +333,7 @@ end function psb_cdotv
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_cdotvs(res, x, y,desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cdotvs
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:), y(:)
|
||||
@@ -474,10 +465,7 @@ end subroutine psb_cdotvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_cmdots(res, x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cmdots
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
|
||||
@@ -45,10 +45,7 @@
|
||||
! jx - integer(optional). The column offset for sub( X ).
|
||||
!
|
||||
function psb_cnrm2(x, desc_a, info, jx)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cnrm2
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:,:)
|
||||
@@ -181,10 +178,7 @@ end function psb_cnrm2
|
||||
! info - integer. Return code
|
||||
!
|
||||
function psb_cnrm2v(x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cnrm2v
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:)
|
||||
@@ -313,10 +307,7 @@ end function psb_cnrm2v
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_cnrm2vs(res, x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cnrm2vs
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: x(:)
|
||||
|
||||
@@ -42,12 +42,7 @@
|
||||
! info - integer. Return code
|
||||
!
|
||||
function psb_cnrmi(a,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cnrmi
|
||||
implicit none
|
||||
|
||||
type(psb_c_sparse_mat), intent(in) :: a
|
||||
|
||||
@@ -64,16 +64,8 @@
|
||||
!
|
||||
subroutine psb_cspmm(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, k, jx, jy, work, doswap)
|
||||
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspmm
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
@@ -82,7 +74,7 @@ subroutine psb_cspmm(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_c_sparse_mat), intent(in) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
complex(psb_spk_), optional, target :: work(:)
|
||||
complex(psb_spk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans
|
||||
integer, intent(in), optional :: k, jx, jy
|
||||
logical, intent(in), optional :: doswap
|
||||
@@ -424,16 +416,8 @@ end subroutine psb_cspmm
|
||||
!
|
||||
subroutine psb_cspmv(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, work, doswap)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_const_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspmv
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
@@ -442,7 +426,7 @@ subroutine psb_cspmv(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_c_sparse_mat), intent(in) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
complex(psb_spk_), optional, target :: work(:)
|
||||
complex(psb_spk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans
|
||||
logical, intent(in), optional :: doswap
|
||||
|
||||
|
||||
@@ -75,15 +75,8 @@
|
||||
!
|
||||
subroutine psb_cspsm(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, scale, choice, diag, k, jx, jy, work)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspsm
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
@@ -93,7 +86,7 @@ subroutine psb_cspsm(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
complex(psb_spk_), intent(in), optional, target :: diag(:)
|
||||
complex(psb_spk_), optional, target :: work(:)
|
||||
complex(psb_spk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans, scale
|
||||
integer, intent(in), optional :: choice
|
||||
integer, intent(in), optional :: k, jx, jy
|
||||
@@ -361,14 +354,8 @@ end subroutine psb_cspsm
|
||||
!
|
||||
subroutine psb_cspsv(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, scale, choice, diag, work)
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspsv
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_spk_), intent(in) :: alpha, beta
|
||||
@@ -378,7 +365,7 @@ subroutine psb_cspsv(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
complex(psb_spk_), intent(in), optional, target :: diag(:)
|
||||
complex(psb_spk_), optional, target :: work(:)
|
||||
complex(psb_spk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans, scale
|
||||
integer, intent(in), optional :: choice
|
||||
|
||||
|
||||
@@ -301,11 +301,7 @@ end function psb_damaxv
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
subroutine psb_damaxvs (res,x,desc_a, info)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_damaxvs
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: x(:)
|
||||
@@ -425,11 +421,7 @@ end subroutine psb_damaxvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_dmamaxs (res,x,desc_a, info,jx)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dmamaxs
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: x(:,:)
|
||||
|
||||
@@ -327,11 +327,7 @@ end function psb_dasumv
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
subroutine psb_dasumvs(res,x,desc_a, info)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dasumvs
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: x(:)
|
||||
|
||||
@@ -51,11 +51,7 @@
|
||||
! jy - integer(optional). The column offset for sub( Y ).
|
||||
!
|
||||
subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_daxpby
|
||||
implicit none
|
||||
|
||||
integer, intent(in), optional :: n, jx, jy
|
||||
@@ -206,11 +202,7 @@ end subroutine psb_daxpby
|
||||
!
|
||||
!
|
||||
subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_daxpbyv
|
||||
implicit none
|
||||
|
||||
integer, intent(out) :: info
|
||||
|
||||
@@ -340,10 +340,7 @@ end function psb_ddotv
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_ddotvs(res, x, y,desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_ddotvs
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
@@ -475,10 +472,7 @@ end subroutine psb_ddotvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_dmdots(res, x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dmdots
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
|
||||
@@ -311,10 +311,7 @@ end function psb_dnrm2v
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_dnrm2vs(res, x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dnrm2vs
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: x(:)
|
||||
|
||||
@@ -64,15 +64,8 @@
|
||||
!
|
||||
subroutine psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, k, jx, jy, work, doswap)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspmm
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
@@ -81,7 +74,7 @@ subroutine psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_d_sparse_mat), intent(in) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
real(psb_dpk_), optional, target :: work(:)
|
||||
real(psb_dpk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans
|
||||
integer, intent(in), optional :: k, jx, jy
|
||||
logical, intent(in), optional :: doswap
|
||||
@@ -423,16 +416,8 @@ end subroutine psb_dspmm
|
||||
!
|
||||
subroutine psb_dspmv(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, work, doswap)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_const_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspmv
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
@@ -441,7 +426,7 @@ subroutine psb_dspmv(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_d_sparse_mat), intent(in) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
real(psb_dpk_), optional, target :: work(:)
|
||||
real(psb_dpk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans
|
||||
logical, intent(in), optional :: doswap
|
||||
|
||||
|
||||
@@ -76,15 +76,8 @@
|
||||
!
|
||||
subroutine psb_dspsm(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, scale, choice, diag, k, jx, jy, work)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspsm
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
@@ -94,7 +87,7 @@ subroutine psb_dspsm(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
real(psb_dpk_), intent(in), optional, target :: diag(:)
|
||||
real(psb_dpk_), optional, target :: work(:)
|
||||
real(psb_dpk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans, scale
|
||||
integer, intent(in), optional :: choice
|
||||
integer, intent(in), optional :: k, jx, jy
|
||||
@@ -362,14 +355,8 @@ end subroutine psb_dspsm
|
||||
!
|
||||
subroutine psb_dspsv(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, scale, choice, diag, work)
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspsv
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
real(psb_dpk_), intent(in) :: alpha, beta
|
||||
@@ -379,7 +366,7 @@ subroutine psb_dspsv(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
real(psb_dpk_), intent(in), optional, target :: diag(:)
|
||||
real(psb_dpk_), optional, target :: work(:)
|
||||
real(psb_dpk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans, scale
|
||||
integer, intent(in), optional :: choice
|
||||
|
||||
|
||||
@@ -301,11 +301,7 @@ end function psb_samaxv
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
subroutine psb_samaxvs (res,x,desc_a, info)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_samaxvs
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: x(:)
|
||||
@@ -425,11 +421,7 @@ end subroutine psb_samaxvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_smamaxs (res,x,desc_a, info,jx)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_smamaxs
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: x(:,:)
|
||||
|
||||
@@ -327,11 +327,7 @@ end function psb_sasumv
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
subroutine psb_sasumvs(res,x,desc_a, info)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sasumvs
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: x(:)
|
||||
|
||||
@@ -51,11 +51,7 @@
|
||||
! jy - integer(optional). The column offset for sub( Y ).
|
||||
!
|
||||
subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_saxpby
|
||||
implicit none
|
||||
|
||||
integer, intent(in), optional :: n, jx, jy
|
||||
@@ -206,11 +202,7 @@ end subroutine psb_saxpby
|
||||
!
|
||||
!
|
||||
subroutine psb_saxpbyv(alpha, x, beta,y,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_saxpbyv
|
||||
implicit none
|
||||
|
||||
integer, intent(out) :: info
|
||||
|
||||
@@ -339,10 +339,7 @@ end function psb_sdotv
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_sdotvs(res, x, y,desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sdotvs
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: x(:), y(:)
|
||||
@@ -474,10 +471,7 @@ end subroutine psb_sdotvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_smdots(res, x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_smdots
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
|
||||
@@ -311,10 +311,7 @@ end function psb_snrm2v
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_snrm2vs(res, x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_snrm2vs
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: x(:)
|
||||
|
||||
@@ -64,16 +64,8 @@
|
||||
!
|
||||
subroutine psb_sspmm(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, k, jx, jy, work, doswap)
|
||||
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sspmm
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
@@ -82,7 +74,7 @@ subroutine psb_sspmm(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_s_sparse_mat), intent(in) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
real(psb_spk_), optional, target :: work(:)
|
||||
real(psb_spk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans
|
||||
integer, intent(in), optional :: k, jx, jy
|
||||
logical, intent(in), optional :: doswap
|
||||
@@ -424,16 +416,8 @@ end subroutine psb_sspmm
|
||||
!
|
||||
subroutine psb_sspmv(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, work, doswap)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_const_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sspmv
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
@@ -442,7 +426,7 @@ subroutine psb_sspmv(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_s_sparse_mat), intent(in) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
real(psb_spk_), optional, target :: work(:)
|
||||
real(psb_spk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans
|
||||
logical, intent(in), optional :: doswap
|
||||
|
||||
|
||||
@@ -76,15 +76,8 @@
|
||||
!
|
||||
subroutine psb_sspsm(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, scale, choice, diag, k, jx, jy, work)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sspsm
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
@@ -94,7 +87,7 @@ subroutine psb_sspsm(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
real(psb_spk_), intent(in), optional, target :: diag(:)
|
||||
real(psb_spk_), optional, target :: work(:)
|
||||
real(psb_spk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans, scale
|
||||
integer, intent(in), optional :: choice
|
||||
integer, intent(in), optional :: k, jx, jy
|
||||
@@ -362,14 +355,8 @@ end subroutine psb_sspsm
|
||||
!
|
||||
subroutine psb_sspsv(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, scale, choice, diag, work)
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sspsv
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: alpha, beta
|
||||
@@ -379,7 +366,7 @@ subroutine psb_sspsv(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
real(psb_spk_), intent(in), optional, target :: diag(:)
|
||||
real(psb_spk_), optional, target :: work(:)
|
||||
real(psb_spk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans, scale
|
||||
integer, intent(in), optional :: choice
|
||||
|
||||
|
||||
@@ -360,10 +360,7 @@ end function sxdot
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_sxdotvs(res, x, y,desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sxdotvs
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: x(:), y(:)
|
||||
@@ -495,10 +492,7 @@ end subroutine psb_sxdotvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_sxmdots(res, x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sxmdots
|
||||
implicit none
|
||||
|
||||
real(psb_spk_), intent(in) :: x(:,:), y(:,:)
|
||||
|
||||
@@ -309,11 +309,7 @@ end function psb_zamaxv
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
subroutine psb_zamaxvs(res,x,desc_a, info)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zamaxvs
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: x(:)
|
||||
@@ -437,11 +433,7 @@ end subroutine psb_zamaxvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_zmamaxs(res,x,desc_a, info,jx)
|
||||
use psb_penv_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zmamaxs
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: x(:,:)
|
||||
|
||||
@@ -337,11 +337,7 @@ end function psb_zasumv
|
||||
! jx - integer(optional). The column offset.
|
||||
!
|
||||
subroutine psb_zasumvs(res,x,desc_a, info)
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zasumvs
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: x(:)
|
||||
|
||||
@@ -51,11 +51,7 @@
|
||||
! jy - integer(optional) The column offset for Y
|
||||
!
|
||||
subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zaxpby
|
||||
implicit none
|
||||
|
||||
integer, intent(in), optional :: n, jx, jy
|
||||
@@ -205,11 +201,7 @@ end subroutine psb_zaxpby
|
||||
!
|
||||
!
|
||||
subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zaxpbyv
|
||||
implicit none
|
||||
|
||||
integer, intent(out) :: info
|
||||
|
||||
@@ -339,10 +339,7 @@ end function psb_zdotv
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_zdotvs(res, x, y,desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zdotvs
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: x(:), y(:)
|
||||
@@ -474,10 +471,7 @@ end subroutine psb_zdotvs
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_zmdots(res, x, y, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zmdots
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: x(:,:), y(:,:)
|
||||
|
||||
@@ -313,10 +313,7 @@ end function psb_znrm2v
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_znrm2vs(res, x, desc_a, info)
|
||||
use psb_descriptor_type
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_znrm2vs
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: x(:)
|
||||
|
||||
@@ -64,15 +64,8 @@
|
||||
!
|
||||
subroutine psb_zspmm(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, k, jx, jy, work, doswap)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zspmm
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
@@ -81,7 +74,7 @@ subroutine psb_zspmm(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_z_sparse_mat), intent(in) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
complex(psb_dpk_), optional, target :: work(:)
|
||||
complex(psb_dpk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans
|
||||
integer, intent(in), optional :: k, jx, jy
|
||||
logical, intent(in), optional :: doswap
|
||||
@@ -423,16 +416,8 @@ end subroutine psb_zspmm
|
||||
!
|
||||
subroutine psb_zspmv(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, work, doswap)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_const_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zspmv
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
@@ -441,7 +426,7 @@ subroutine psb_zspmv(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_z_sparse_mat), intent(in) :: a
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
complex(psb_dpk_), optional, target :: work(:)
|
||||
complex(psb_dpk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans
|
||||
logical, intent(in), optional :: doswap
|
||||
|
||||
|
||||
@@ -75,15 +75,8 @@
|
||||
!
|
||||
subroutine psb_zspsm(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, scale, choice, diag, k, jx, jy, work)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zspsm
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
@@ -93,7 +86,7 @@ subroutine psb_zspsm(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
complex(psb_dpk_), intent(in), optional, target :: diag(:)
|
||||
complex(psb_dpk_), optional, target :: work(:)
|
||||
complex(psb_dpk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans, scale
|
||||
integer, intent(in), optional :: choice
|
||||
integer, intent(in), optional :: k, jx, jy
|
||||
@@ -361,14 +354,8 @@ end subroutine psb_zspsm
|
||||
!
|
||||
subroutine psb_zspsv(alpha,a,x,beta,y,desc_a,info,&
|
||||
& trans, scale, choice, diag, work)
|
||||
use psb_descriptor_type
|
||||
use psb_comm_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_zspsv
|
||||
use psi_mod
|
||||
use psb_check_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
|
||||
complex(psb_dpk_), intent(in) :: alpha, beta
|
||||
@@ -378,7 +365,7 @@ subroutine psb_zspsv(alpha,a,x,beta,y,desc_a,info,&
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer, intent(out) :: info
|
||||
complex(psb_dpk_), intent(in), optional, target :: diag(:)
|
||||
complex(psb_dpk_), optional, target :: work(:)
|
||||
complex(psb_dpk_), optional, target, intent(inout) :: work(:)
|
||||
character, intent(in), optional :: trans, scale
|
||||
integer, intent(in), optional :: choice
|
||||
|
||||
|
||||
@@ -1,9 +1,10 @@
|
||||
|
||||
subroutine d_coo_cssm_impl(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 => d_coo_cssm_impl
|
||||
!!$ use psb_const_mod
|
||||
!!$ use psb_error_mod
|
||||
!!$ use psb_string_mod
|
||||
!!$ use psb_d_base_mat_mod, psb_protect_name => d_coo_cssm_impl
|
||||
use psb_sparse_mod, psb_protect_name => d_coo_cssm_impl
|
||||
implicit none
|
||||
class(psb_d_coo_sparse_mat), intent(in) :: a
|
||||
real(psb_dpk_), intent(in) :: alpha, beta, x(:,:)
|
||||
|
||||
@@ -39,9 +39,7 @@
|
||||
!
|
||||
!
|
||||
subroutine psb_crwextd(nr,a,info,b,rowscale)
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_serial_mod, psb_protect_name => psb_crwextd
|
||||
use psb_sparse_mod, psb_protect_name => psb_crwextd
|
||||
implicit none
|
||||
|
||||
! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes)
|
||||
@@ -101,9 +99,7 @@ subroutine psb_crwextd(nr,a,info,b,rowscale)
|
||||
|
||||
end subroutine psb_crwextd
|
||||
subroutine psb_cbase_rwextd(nr,a,info,b,rowscale)
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_serial_mod, psb_protect_name => psb_cbase_rwextd
|
||||
use psb_sparse_mod, psb_protect_name => psb_cbase_rwextd
|
||||
implicit none
|
||||
|
||||
! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes)
|
||||
|
||||
@@ -39,9 +39,7 @@
|
||||
!
|
||||
!
|
||||
subroutine psb_drwextd(nr,a,info,b,rowscale)
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_serial_mod, psb_protect_name => psb_drwextd
|
||||
use psb_sparse_mod, psb_protect_name => psb_drwextd
|
||||
implicit none
|
||||
|
||||
! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes)
|
||||
@@ -101,9 +99,7 @@ subroutine psb_drwextd(nr,a,info,b,rowscale)
|
||||
|
||||
end subroutine psb_drwextd
|
||||
subroutine psb_dbase_rwextd(nr,a,info,b,rowscale)
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_serial_mod, psb_protect_name => psb_dbase_rwextd
|
||||
use psb_sparse_mod, psb_protect_name => psb_dbase_rwextd
|
||||
implicit none
|
||||
|
||||
! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes)
|
||||
|
||||
@@ -39,9 +39,7 @@
|
||||
!
|
||||
!
|
||||
subroutine psb_srwextd(nr,a,info,b,rowscale)
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_serial_mod, psb_protect_name => psb_srwextd
|
||||
use psb_sparse_mod, psb_protect_name => psb_srwextd
|
||||
implicit none
|
||||
|
||||
! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes)
|
||||
@@ -101,9 +99,7 @@ subroutine psb_srwextd(nr,a,info,b,rowscale)
|
||||
|
||||
end subroutine psb_srwextd
|
||||
subroutine psb_sbase_rwextd(nr,a,info,b,rowscale)
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_serial_mod, psb_protect_name => psb_sbase_rwextd
|
||||
use psb_sparse_mod, psb_protect_name => psb_sbase_rwextd
|
||||
implicit none
|
||||
|
||||
! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes)
|
||||
|
||||
@@ -39,9 +39,7 @@
|
||||
!
|
||||
!
|
||||
subroutine psb_zrwextd(nr,a,info,b,rowscale)
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_serial_mod, psb_protect_name => psb_zrwextd
|
||||
use psb_sparse_mod, psb_protect_name => psb_zrwextd
|
||||
implicit none
|
||||
|
||||
! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes)
|
||||
@@ -101,9 +99,7 @@ subroutine psb_zrwextd(nr,a,info,b,rowscale)
|
||||
|
||||
end subroutine psb_zrwextd
|
||||
subroutine psb_zbase_rwextd(nr,a,info,b,rowscale)
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_serial_mod, psb_protect_name => psb_zbase_rwextd
|
||||
use psb_sparse_mod, psb_protect_name => psb_zbase_rwextd
|
||||
implicit none
|
||||
|
||||
! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes)
|
||||
|
||||
@@ -43,13 +43,8 @@
|
||||
! n - optional number of columns.
|
||||
! lb - optional lower bound on column indices
|
||||
subroutine psb_calloc(x, desc_a, info, n, lb)
|
||||
!....allocate dense matrix for psblas routines.....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_calloc
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
@@ -181,13 +176,8 @@ end subroutine psb_calloc
|
||||
! desc_a - the communication descriptor.
|
||||
! info - return code
|
||||
subroutine psb_callocv(x, desc_a,info,n)
|
||||
!....allocate sparse matrix structure for psblas routines.....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_realloc_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_callocv
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
+2
-14
@@ -43,13 +43,7 @@
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. return code
|
||||
subroutine psb_casb(x, desc_a, info)
|
||||
!....assembly dense matrix x .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_comm_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_casb
|
||||
implicit none
|
||||
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
@@ -182,13 +176,7 @@ end subroutine psb_casb
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_casbv(x, desc_a, info)
|
||||
!....assembly dense matrix x .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_comm_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_casbv
|
||||
implicit none
|
||||
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
|
||||
@@ -61,19 +61,14 @@
|
||||
!
|
||||
Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
|
||||
|
||||
use psb_tools_mod, psb_protect_name => psb_ccdbldext
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_realloc_mod
|
||||
use psi_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_ccdbldext
|
||||
|
||||
#ifdef MPI_MOD
|
||||
use mpi
|
||||
use mpi
|
||||
#endif
|
||||
Implicit None
|
||||
#ifdef MPI_H
|
||||
include 'mpif.h'
|
||||
include 'mpif.h'
|
||||
#endif
|
||||
|
||||
! .. Array Arguments ..
|
||||
|
||||
@@ -42,12 +42,7 @@
|
||||
! desc - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Eventually returns an error code
|
||||
subroutine psb_cd_inloc(v, ictxt, desc, info, globalcheck)
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psi_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod
|
||||
implicit None
|
||||
!....Parameters...
|
||||
Integer, intent(in) :: ictxt, v(:)
|
||||
|
||||
@@ -31,8 +31,8 @@
|
||||
!!$
|
||||
Subroutine psb_cd_lstext(desc_a,in_list,desc_ov,info, mask,extype)
|
||||
|
||||
use psb_base_mod, psb_protect_name => psb_cd_lstext
|
||||
use psi_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cd_lstext
|
||||
!!$ use psi_mod
|
||||
|
||||
Implicit None
|
||||
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
|
||||
Subroutine psb_cd_reinit(desc,info)
|
||||
|
||||
use psb_base_mod, psb_protect_name => psb_cd_reinit
|
||||
use psb_sparse_mod, psb_protect_name => psb_cd_reinit
|
||||
use psi_mod
|
||||
|
||||
Implicit None
|
||||
|
||||
@@ -30,14 +30,7 @@
|
||||
!!$
|
||||
!!$
|
||||
subroutine psb_cd_set_ovl_bld(desc,info)
|
||||
!
|
||||
! Change state of a descriptor into ovl_build.
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psi_mod
|
||||
use psb_descriptor_type
|
||||
use psb_tools_mod, psb_protect_name => psb_cd_set_ovl_bld
|
||||
use psb_sparse_mod, psb_protect_name => psb_cd_set_ovl_bld
|
||||
implicit none
|
||||
type(psb_desc_type), intent(inout) :: desc
|
||||
integer :: info
|
||||
@@ -48,17 +41,8 @@ subroutine psb_cd_set_ovl_bld(desc,info)
|
||||
end subroutine psb_cd_set_ovl_bld
|
||||
|
||||
subroutine psb_cd_set_bld(desc,info)
|
||||
!
|
||||
! Change state of a descriptor into BUILD.
|
||||
! If the descriptor is LARGE, check the AVL search tree
|
||||
! and initialize it if necessary.
|
||||
!
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cd_set_bld
|
||||
use psi_mod
|
||||
use psb_descriptor_type
|
||||
use psb_tools_mod, psb_protect_name => psb_cd_set_bld
|
||||
implicit none
|
||||
type(psb_desc_type), intent(inout) :: desc
|
||||
integer :: info
|
||||
|
||||
@@ -44,13 +44,7 @@
|
||||
! desc - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Error code (if any).
|
||||
subroutine psb_cdals(m, n, parts, ictxt, desc, info)
|
||||
use psb_error_mod
|
||||
use psb_descriptor_type
|
||||
use psb_realloc_mod
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psi_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod
|
||||
implicit None
|
||||
include 'parts.fh'
|
||||
!....Parameters...
|
||||
|
||||
@@ -44,12 +44,7 @@
|
||||
! info - integer. Return code
|
||||
! flag - integer. Are V's contents 0- or 1-based?
|
||||
subroutine psb_cdalv(v, ictxt, desc, info, flag)
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psi_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod
|
||||
implicit None
|
||||
!....Parameters...
|
||||
Integer, intent(in) :: ictxt, v(:)
|
||||
|
||||
@@ -39,7 +39,7 @@
|
||||
! info - integer. Return code.
|
||||
subroutine psb_cdcpy(desc_in, desc_out, info)
|
||||
|
||||
use psb_base_mod, psb_protect_name => psb_cdcpy
|
||||
use psb_sparse_mod, psb_protect_name => psb_cdcpy
|
||||
|
||||
implicit none
|
||||
!....parameters...
|
||||
|
||||
@@ -46,13 +46,8 @@
|
||||
! jla(:) - integer, optional The col indices in local numbering
|
||||
!
|
||||
subroutine psb_cdinsrc(nz,ia,ja,desc_a,info,ila,jla)
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cdinsrc
|
||||
use psi_mod
|
||||
use psb_tools_mod, psb_protect_name => psb_cdinsrc
|
||||
implicit none
|
||||
|
||||
!....PARAMETERS...
|
||||
@@ -171,14 +166,8 @@ end subroutine psb_cdinsrc
|
||||
! mask(:) - logical, optional, target
|
||||
!
|
||||
subroutine psb_cdinsc(nz,ja,desc,info,jla,mask)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cdinsc
|
||||
use psi_mod
|
||||
use psb_tools_mod, psb_protect_name => psb_cdinsc
|
||||
implicit none
|
||||
|
||||
!....PARAMETERS...
|
||||
|
||||
@@ -41,8 +41,7 @@
|
||||
! short - logical(optional). Used to choose a verbose output.
|
||||
!
|
||||
subroutine psb_cdprt(iout,desc_p,glob,short)
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_sparse_mod, psb_protect_name => psb_cdprt
|
||||
implicit none
|
||||
type(psb_desc_type), intent(in) :: desc_p
|
||||
integer, intent(in) :: iout
|
||||
|
||||
@@ -45,13 +45,8 @@
|
||||
! info - integer. Return code
|
||||
!
|
||||
subroutine psb_cdren(trans,iperm,desc_a,info)
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_serial_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cdren
|
||||
use psi_mod
|
||||
use psb_string_mod
|
||||
implicit none
|
||||
|
||||
|
||||
|
||||
@@ -29,8 +29,6 @@
|
||||
!!$ POSSIBILITY OF SUCH DAMAGE.
|
||||
!!$
|
||||
!!$
|
||||
subroutine psb_cdrep(m, ictxt, desc, info)
|
||||
|
||||
! Purpose
|
||||
! =======
|
||||
!
|
||||
@@ -103,13 +101,9 @@ subroutine psb_cdrep(m, ictxt, desc, info)
|
||||
! END OF desc OUTPUT FIELDS
|
||||
!
|
||||
!
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
subroutine psb_cdrep(m, ictxt, desc, info)
|
||||
use psb_sparse_mod
|
||||
use psi_mod
|
||||
use psb_penv_mod
|
||||
implicit None
|
||||
!....Parameters...
|
||||
Integer, intent(in) :: m,ictxt
|
||||
|
||||
@@ -39,17 +39,13 @@
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_cfree(x, desc_a, info)
|
||||
!...free dense matrix structure...
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cfree
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
complex(psb_spk_),allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
|
||||
!...locals....
|
||||
integer :: ictxt,np,me, err_act
|
||||
@@ -114,17 +110,12 @@ end subroutine psb_cfree
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_cfreev(x, desc_a, info)
|
||||
!...free dense matrix structure...
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_cfreev
|
||||
implicit none
|
||||
!....parameters...
|
||||
complex(psb_spk_),allocatable, intent(inout) :: x(:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
|
||||
!...locals....
|
||||
integer :: ictxt,np,me, err_act
|
||||
|
||||
+2
-10
@@ -46,11 +46,7 @@
|
||||
! psb_dupl_ovwrt_ overwrite
|
||||
! psb_dupl_add_ add
|
||||
subroutine psb_cinsvi(m, irw, val, x, desc_a, info, dupl)
|
||||
!....insert dense submatrix to dense matrix .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cinsvi
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
@@ -231,11 +227,7 @@ end subroutine psb_cinsvi
|
||||
! psb_dupl_ovwrt_ overwrite
|
||||
! psb_dupl_add_ add
|
||||
subroutine psb_cinsi(m, irw, val, x, desc_a, info, dupl)
|
||||
!....insert dense submatrix to dense matrix .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cinsi
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
|
||||
@@ -42,12 +42,7 @@
|
||||
! (local, user estimate)
|
||||
!
|
||||
subroutine psb_cspalloc(a, desc_a, info, nnz)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspalloc
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
@@ -49,14 +49,8 @@
|
||||
!
|
||||
!
|
||||
subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl,mold)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspasb
|
||||
use psi_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
implicit none
|
||||
|
||||
|
||||
|
||||
@@ -40,11 +40,7 @@
|
||||
! info - integer. return code.
|
||||
!
|
||||
subroutine psb_cspfree(a, desc_a,info)
|
||||
!...free sparse matrix structure...
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspfree
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
@@ -58,19 +58,14 @@
|
||||
Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
|
||||
& rowscale,colscale,outfmt,data)
|
||||
|
||||
use psb_const_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_realloc_mod
|
||||
use psb_tools_mod, psb_protect_name => psb_csphalo
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_csphalo
|
||||
|
||||
#ifdef MPI_MOD
|
||||
use mpi
|
||||
use mpi
|
||||
#endif
|
||||
Implicit None
|
||||
#ifdef MPI_H
|
||||
include 'mpif.h'
|
||||
include 'mpif.h'
|
||||
#endif
|
||||
|
||||
Type(psb_c_sparse_mat),Intent(in) :: a
|
||||
|
||||
@@ -49,22 +49,17 @@
|
||||
! certain circumstances.
|
||||
!
|
||||
subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild)
|
||||
|
||||
use psb_tools_mod, psb_protect_name => psb_cspins
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspins
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
type(psb_c_sparse_mat), intent(inout) :: a
|
||||
integer, intent(in) :: nz,ia(:),ja(:)
|
||||
complex(psb_spk_), intent(in) :: val(:)
|
||||
integer, intent(out) :: info
|
||||
logical, intent(in), optional :: rebuild
|
||||
integer, intent(in) :: nz,ia(:),ja(:)
|
||||
complex(psb_spk_), intent(in) :: val(:)
|
||||
integer, intent(out) :: info
|
||||
logical, intent(in), optional :: rebuild
|
||||
!locals.....
|
||||
|
||||
integer :: nrow, err_act, ncol, spstate
|
||||
@@ -237,12 +232,8 @@ end subroutine psb_cspins
|
||||
|
||||
|
||||
subroutine psb_cspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info)
|
||||
use psb_tools_mod, psb_protect_name => psb_cspins_2desc
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_cspins_2desc
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
@@ -43,12 +43,7 @@
|
||||
! default .true.
|
||||
!
|
||||
Subroutine psb_csprn(a, desc_a,info,clear)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_csprn
|
||||
Implicit None
|
||||
|
||||
!....Parameters...
|
||||
|
||||
@@ -43,13 +43,8 @@
|
||||
! n - optional number of columns.
|
||||
! lb - optional lower bound on column indices
|
||||
subroutine psb_dalloc(x, desc_a, info, n, lb)
|
||||
!....allocate dense matrix for psblas routines.....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_dalloc
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
@@ -182,13 +177,8 @@ end subroutine psb_dalloc
|
||||
! desc_a - the communication descriptor.
|
||||
! info - return code
|
||||
subroutine psb_dallocv(x, desc_a,info,n)
|
||||
!....allocate sparse matrix structure for psblas routines.....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_realloc_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_dallocv
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
+2
-14
@@ -43,13 +43,7 @@
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. return code
|
||||
subroutine psb_dasb(x, desc_a, info)
|
||||
!....assembly dense matrix x .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_comm_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dasb
|
||||
implicit none
|
||||
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
@@ -182,13 +176,7 @@ end subroutine psb_dasb
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_dasbv(x, desc_a, info)
|
||||
!....assembly dense matrix x .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_comm_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dasbv
|
||||
implicit none
|
||||
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
|
||||
@@ -61,13 +61,8 @@
|
||||
!
|
||||
Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
|
||||
|
||||
use psb_tools_mod, psb_protect_name => psb_dcdbldext
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_realloc_mod
|
||||
use psi_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dcdbldext
|
||||
|
||||
#ifdef MPI_MOD
|
||||
use mpi
|
||||
#endif
|
||||
|
||||
@@ -39,17 +39,13 @@
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_dfree(x, desc_a, info)
|
||||
!...free dense matrix structure...
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dfree
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
real(psb_dpk_),allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer, intent(out) :: info
|
||||
|
||||
!...locals....
|
||||
integer :: ictxt,np,me,err_act
|
||||
@@ -114,12 +110,7 @@ end subroutine psb_dfree
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_dfreev(x, desc_a, info)
|
||||
!...free dense matrix structure...
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_dfreev
|
||||
implicit none
|
||||
!....parameters...
|
||||
real(psb_dpk_),allocatable, intent(inout) :: x(:)
|
||||
|
||||
+2
-10
@@ -46,11 +46,7 @@
|
||||
! psb_dupl_ovwrt_ overwrite
|
||||
! psb_dupl_add_ add
|
||||
subroutine psb_dinsvi(m, irw, val, x, desc_a, info, dupl)
|
||||
!....insert dense submatrix to dense matrix .....
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dinsvi
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
@@ -231,11 +227,7 @@ end subroutine psb_dinsvi
|
||||
! psb_dupl_ovwrt_ overwrite
|
||||
! psb_dupl_add_ add
|
||||
subroutine psb_dinsi(m, irw, val, x, desc_a, info, dupl)
|
||||
!....insert dense submatrix to dense matrix .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dinsi
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
|
||||
@@ -42,12 +42,7 @@
|
||||
! (local, user estimate)
|
||||
!
|
||||
subroutine psb_dspalloc(a, desc_a, info, nnz)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspalloc
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
@@ -49,13 +49,8 @@
|
||||
!
|
||||
!
|
||||
subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold)
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspasb
|
||||
use psi_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
implicit none
|
||||
|
||||
|
||||
|
||||
@@ -40,11 +40,7 @@
|
||||
! info - integer. return code.
|
||||
!
|
||||
subroutine psb_dspfree(a, desc_a,info)
|
||||
!...free sparse matrix structure...
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspfree
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
@@ -58,20 +58,14 @@
|
||||
!
|
||||
Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
|
||||
& rowscale,colscale,outfmt,data)
|
||||
use psb_sparse_mod, psb_protect_name => psb_dsphalo
|
||||
|
||||
use psb_const_mod
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_realloc_mod
|
||||
use psb_tools_mod, psb_protect_name => psb_dsphalo
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
#ifdef MPI_MOD
|
||||
use mpi
|
||||
use mpi
|
||||
#endif
|
||||
Implicit None
|
||||
#ifdef MPI_H
|
||||
include 'mpif.h'
|
||||
include 'mpif.h'
|
||||
#endif
|
||||
|
||||
Type(psb_d_sparse_mat),Intent(in) :: a
|
||||
|
||||
@@ -49,13 +49,7 @@
|
||||
! certain circumstances.
|
||||
!
|
||||
subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild)
|
||||
|
||||
use psb_tools_mod, psb_protect_name => psb_dspins
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspins
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
@@ -237,12 +231,7 @@ end subroutine psb_dspins
|
||||
|
||||
|
||||
subroutine psb_dspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info)
|
||||
use psb_tools_mod, psb_protect_name => psb_dspins_2desc
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dspins_2desc
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
@@ -42,12 +42,7 @@
|
||||
! clear - logical, optional Whether the coefficients should be zeroed
|
||||
! default .true.
|
||||
Subroutine psb_dsprn(a, desc_a,info,clear)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_dsprn
|
||||
Implicit None
|
||||
|
||||
!....Parameters...
|
||||
|
||||
@@ -43,9 +43,7 @@
|
||||
! info - integer. return code.
|
||||
!
|
||||
subroutine psb_get_ovrlap(ovrel,desc,info)
|
||||
use psb_descriptor_type
|
||||
use psb_realloc_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_get_ovrlap
|
||||
implicit none
|
||||
integer, allocatable, intent(out) :: ovrel(:)
|
||||
type(psb_desc_type), intent(in) :: desc
|
||||
|
||||
@@ -47,12 +47,7 @@
|
||||
! owned by the process, i.e. excludes halo.
|
||||
!
|
||||
subroutine psb_glob_to_loc2(x,y,desc_a,info,iact,owned)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_glob_to_loc2
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
@@ -171,12 +166,7 @@ end subroutine psb_glob_to_loc2
|
||||
! owned by the process, i.e. excludes halo.
|
||||
!
|
||||
subroutine psb_glob_to_loc(x,desc_a,info,iact,owned)
|
||||
|
||||
use psb_penv_mod
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_glob_to_loc
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
@@ -252,8 +242,7 @@ subroutine psb_glob_to_loc(x,desc_a,info,iact,owned)
|
||||
end subroutine psb_glob_to_loc
|
||||
|
||||
subroutine psb_glob_to_loc2s(x,y,desc_a,info,iact,owned)
|
||||
use psb_descriptor_type
|
||||
use psb_tools_mod, psb_protect_name => psb_glob_to_loc2s
|
||||
use psb_sparse_mod, psb_protect_name => psb_glob_to_loc2s
|
||||
implicit none
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer,intent(in) :: x
|
||||
@@ -270,8 +259,7 @@ subroutine psb_glob_to_loc2s(x,y,desc_a,info,iact,owned)
|
||||
end subroutine psb_glob_to_loc2s
|
||||
|
||||
subroutine psb_glob_to_locs(x,desc_a,info,iact,owned)
|
||||
use psb_descriptor_type
|
||||
use psb_tools_mod, psb_protect_name => psb_glob_to_locs
|
||||
use psb_sparse_mod, psb_protect_name => psb_glob_to_locs
|
||||
implicit none
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer,intent(inout) :: x
|
||||
|
||||
@@ -42,13 +42,7 @@
|
||||
! n - optional number of columns.
|
||||
! lb - optional lower bound on column indices
|
||||
subroutine psb_ialloc(x, desc_a, info, n, lb)
|
||||
!....allocate dense matrix for psblas routines.....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_ialloc
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
@@ -181,13 +175,7 @@ end subroutine psb_ialloc
|
||||
! desc_a - the communication descriptor.
|
||||
! info - return code
|
||||
subroutine psb_iallocv(x, desc_a, info,n)
|
||||
!....allocate sparse matrix structure for psblas routines.....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_realloc_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_iallocv
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
+2
-14
@@ -43,13 +43,7 @@
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. return code
|
||||
subroutine psb_iasb(x, desc_a, info)
|
||||
!....assembly dense matrix x .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_comm_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_iasb
|
||||
implicit none
|
||||
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
@@ -183,13 +177,7 @@ end subroutine psb_iasb
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. return code
|
||||
subroutine psb_iasbv(x, desc_a, info)
|
||||
!....assembly dense matrix x .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_comm_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_iasbv
|
||||
implicit none
|
||||
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
|
||||
@@ -43,18 +43,14 @@
|
||||
! halo descriptor with respect to a normal call.
|
||||
!
|
||||
subroutine psb_icdasb(desc_a,info,ext_hv)
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_icdasb
|
||||
use psi_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
#ifdef MPI_MOD
|
||||
use mpi
|
||||
use mpi
|
||||
#endif
|
||||
implicit none
|
||||
#ifdef MPI_H
|
||||
include 'mpif.h'
|
||||
include 'mpif.h'
|
||||
#endif
|
||||
!...Parameters....
|
||||
type(psb_desc_type), intent(inout) :: desc_a
|
||||
|
||||
@@ -39,11 +39,7 @@
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Eventually returns an error code
|
||||
subroutine psb_ifree(x, desc_a, info)
|
||||
!...free dense matrix structure...
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_ifree
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
@@ -145,12 +141,7 @@ end subroutine psb_ifree
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Eventually returns an error code
|
||||
subroutine psb_ifreev(x, desc_a,info)
|
||||
!...free dense matrix structure...
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_ifreev
|
||||
implicit none
|
||||
!....parameters...
|
||||
integer, allocatable, intent(inout) :: x(:)
|
||||
|
||||
+2
-10
@@ -46,11 +46,7 @@
|
||||
! psb_dupl_ovwrt_ overwrite
|
||||
! psb_dupl_add_ add
|
||||
subroutine psb_iinsvi(m, irw, val, x, desc_a, info, dupl)
|
||||
!....insert dense submatrix to dense matrix .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_iinsvi
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
@@ -230,11 +226,7 @@ end subroutine psb_iinsvi
|
||||
! psb_dupl_ovwrt_ overwrite
|
||||
! psb_dupl_add_ add
|
||||
subroutine psb_iinsi(m, irw, val, x, desc_a, info, dupl)
|
||||
!....insert dense submatrix to dense matrix .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_iinsi
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
|
||||
@@ -32,7 +32,7 @@
|
||||
|
||||
function psb_c_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) result(this)
|
||||
|
||||
use psb_base_mod, psb_protect_name => psb_c_linmap
|
||||
use psb_sparse_mod, psb_protect_name => psb_c_linmap
|
||||
|
||||
implicit none
|
||||
type(psb_clinmap_type) :: this
|
||||
@@ -108,7 +108,7 @@ end function psb_c_linmap
|
||||
|
||||
function psb_d_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) result(this)
|
||||
|
||||
use psb_base_mod, psb_protect_name => psb_d_linmap
|
||||
use psb_sparse_mod, psb_protect_name => psb_d_linmap
|
||||
|
||||
implicit none
|
||||
type(psb_dlinmap_type) :: this
|
||||
@@ -190,7 +190,7 @@ end function psb_d_linmap
|
||||
|
||||
function psb_s_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) result(this)
|
||||
|
||||
use psb_base_mod, psb_protect_name => psb_s_linmap
|
||||
use psb_sparse_mod, psb_protect_name => psb_s_linmap
|
||||
|
||||
implicit none
|
||||
type(psb_slinmap_type) :: this
|
||||
@@ -269,7 +269,7 @@ end function psb_s_linmap
|
||||
|
||||
function psb_z_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) result(this)
|
||||
|
||||
use psb_base_mod, psb_protect_name => psb_z_linmap
|
||||
use psb_sparse_mod, psb_protect_name => psb_z_linmap
|
||||
|
||||
implicit none
|
||||
type(psb_zlinmap_type) :: this
|
||||
|
||||
@@ -45,11 +45,7 @@
|
||||
! 'I'gnore, 'W'arning, 'A'bort
|
||||
!
|
||||
subroutine psb_loc_to_glob2(x,y,desc_a,info,iact)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_loc_to_glob2
|
||||
implicit none
|
||||
|
||||
!...parameters....
|
||||
@@ -155,11 +151,7 @@ end subroutine psb_loc_to_glob2
|
||||
! 'I'gnore, 'W'arning, 'A'bort
|
||||
!
|
||||
subroutine psb_loc_to_glob(x,desc_a,info,iact)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_loc_to_glob
|
||||
implicit none
|
||||
|
||||
!...parameters....
|
||||
|
||||
@@ -33,7 +33,7 @@
|
||||
!
|
||||
!
|
||||
subroutine psb_s_map_X2Y(alpha,x,beta,y,map,info,work)
|
||||
use psb_base_mod, psb_protect_name => psb_s_map_X2Y
|
||||
use psb_sparse_mod, psb_protect_name => psb_s_map_X2Y
|
||||
implicit none
|
||||
type(psb_slinmap_type), intent(in) :: map
|
||||
real(psb_spk_), intent(in) :: alpha,beta
|
||||
@@ -111,7 +111,7 @@ end subroutine psb_s_map_X2Y
|
||||
! due to exch_bk_idx
|
||||
!
|
||||
subroutine psb_s_map_Y2X(alpha,x,beta,y,map,info,work)
|
||||
use psb_base_mod, psb_protect_name => psb_s_map_Y2X
|
||||
use psb_sparse_mod, psb_protect_name => psb_s_map_Y2X
|
||||
|
||||
implicit none
|
||||
type(psb_slinmap_type), intent(in) :: map
|
||||
@@ -190,7 +190,7 @@ end subroutine psb_s_map_Y2X
|
||||
! due to exch_fw_idx
|
||||
!
|
||||
subroutine psb_d_map_X2Y(alpha,x,beta,y,map,info,work)
|
||||
use psb_base_mod, psb_protect_name => psb_d_map_X2Y
|
||||
use psb_sparse_mod, psb_protect_name => psb_d_map_X2Y
|
||||
implicit none
|
||||
type(psb_dlinmap_type), intent(in) :: map
|
||||
real(psb_dpk_), intent(in) :: alpha,beta
|
||||
@@ -269,7 +269,7 @@ end subroutine psb_d_map_X2Y
|
||||
! due to exch_bk_idx
|
||||
!
|
||||
subroutine psb_d_map_Y2X(alpha,x,beta,y,map,info,work)
|
||||
use psb_base_mod, psb_protect_name => psb_d_map_Y2X
|
||||
use psb_sparse_mod, psb_protect_name => psb_d_map_Y2X
|
||||
|
||||
implicit none
|
||||
type(psb_dlinmap_type), intent(in) :: map
|
||||
@@ -348,7 +348,7 @@ end subroutine psb_d_map_Y2X
|
||||
! due to exch_fw_idx
|
||||
!
|
||||
subroutine psb_c_map_X2Y(alpha,x,beta,y,map,info,work)
|
||||
use psb_base_mod, psb_protect_name => psb_c_map_X2Y
|
||||
use psb_sparse_mod, psb_protect_name => psb_c_map_X2Y
|
||||
|
||||
implicit none
|
||||
type(psb_clinmap_type), intent(in) :: map
|
||||
@@ -427,7 +427,7 @@ end subroutine psb_c_map_X2Y
|
||||
! due to exch_bk_idx
|
||||
!
|
||||
subroutine psb_c_map_Y2X(alpha,x,beta,y,map,info,work)
|
||||
use psb_base_mod, psb_protect_name => psb_c_map_Y2X
|
||||
use psb_sparse_mod, psb_protect_name => psb_c_map_Y2X
|
||||
|
||||
implicit none
|
||||
type(psb_clinmap_type), intent(in) :: map
|
||||
@@ -506,7 +506,7 @@ end subroutine psb_c_map_Y2X
|
||||
! due to exch_fw_idx
|
||||
!
|
||||
subroutine psb_z_map_X2Y(alpha,x,beta,y,map,info,work)
|
||||
use psb_base_mod, psb_protect_name => psb_z_map_X2Y
|
||||
use psb_sparse_mod, psb_protect_name => psb_z_map_X2Y
|
||||
|
||||
implicit none
|
||||
type(psb_zlinmap_type), intent(in) :: map
|
||||
@@ -585,7 +585,7 @@ end subroutine psb_z_map_X2Y
|
||||
! due to exch_bk_idx
|
||||
!
|
||||
subroutine psb_z_map_Y2X(alpha,x,beta,y,map,info,work)
|
||||
use psb_base_mod, psb_protect_name => psb_z_map_Y2X
|
||||
use psb_sparse_mod, psb_protect_name => psb_z_map_Y2X
|
||||
|
||||
implicit none
|
||||
type(psb_zlinmap_type), intent(in) :: map
|
||||
|
||||
@@ -43,13 +43,8 @@
|
||||
! n - optional number of columns.
|
||||
! lb - optional lower bound on column indices
|
||||
subroutine psb_salloc(x, desc_a, info, n, lb)
|
||||
!....allocate dense matrix for psblas routines.....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_salloc
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
@@ -182,13 +177,8 @@ end subroutine psb_salloc
|
||||
! desc_a - the communication descriptor.
|
||||
! info - return code
|
||||
subroutine psb_sallocv(x, desc_a,info,n)
|
||||
!....allocate sparse matrix structure for psblas routines.....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_realloc_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_sallocv
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
+2
-14
@@ -43,13 +43,7 @@
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. return code
|
||||
subroutine psb_sasb(x, desc_a, info)
|
||||
!....assembly dense matrix x .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_comm_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sasb
|
||||
implicit none
|
||||
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
@@ -182,13 +176,7 @@ end subroutine psb_sasb
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_sasbv(x, desc_a, info)
|
||||
!....assembly dense matrix x .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_comm_mod
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sasbv
|
||||
implicit none
|
||||
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
|
||||
@@ -61,12 +61,7 @@
|
||||
!
|
||||
Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
|
||||
|
||||
use psb_tools_mod, psb_protect_name => psb_scdbldext
|
||||
use psb_serial_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_realloc_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_scdbldext
|
||||
use psi_mod
|
||||
#ifdef MPI_MOD
|
||||
use mpi
|
||||
|
||||
@@ -39,17 +39,13 @@
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_sfree(x, desc_a, info)
|
||||
!...free dense matrix structure...
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sfree
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
real(psb_spk_),allocatable, intent(inout) :: x(:,:)
|
||||
type(psb_desc_type), intent(in) :: desc_a
|
||||
integer :: info
|
||||
integer,intent(out) :: info
|
||||
|
||||
!...locals....
|
||||
integer :: ictxt,np,me,err_act
|
||||
@@ -114,12 +110,7 @@ end subroutine psb_sfree
|
||||
! desc_a - type(psb_desc_type). The communication descriptor.
|
||||
! info - integer. Return code
|
||||
subroutine psb_sfreev(x, desc_a, info)
|
||||
!...free dense matrix structure...
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
|
||||
use psb_sparse_mod, psb_protect_name => psb_sfreev
|
||||
implicit none
|
||||
!....parameters...
|
||||
real(psb_spk_),allocatable, intent(inout) :: x(:)
|
||||
|
||||
+2
-10
@@ -46,11 +46,7 @@
|
||||
! psb_dupl_ovwrt_ overwrite
|
||||
! psb_dupl_add_ add
|
||||
subroutine psb_sinsvi(m, irw, val, x, desc_a, info, dupl)
|
||||
!....insert dense submatrix to dense matrix .....
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sinsvi
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
@@ -231,11 +227,7 @@ end subroutine psb_sinsvi
|
||||
! psb_dupl_ovwrt_ overwrite
|
||||
! psb_dupl_add_ add
|
||||
subroutine psb_sinsi(m, irw, val, x, desc_a, info, dupl)
|
||||
!....insert dense submatrix to dense matrix .....
|
||||
use psb_descriptor_type
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sinsi
|
||||
use psi_mod
|
||||
implicit none
|
||||
|
||||
|
||||
@@ -42,12 +42,7 @@
|
||||
! (local, user estimate)
|
||||
!
|
||||
subroutine psb_sspalloc(a, desc_a, info, nnz)
|
||||
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_penv_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sspalloc
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
@@ -49,13 +49,8 @@
|
||||
!
|
||||
!
|
||||
subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold)
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sspasb
|
||||
use psi_mod
|
||||
use psb_error_mod
|
||||
use psb_string_mod
|
||||
use psb_penv_mod
|
||||
implicit none
|
||||
|
||||
|
||||
|
||||
@@ -40,11 +40,7 @@
|
||||
! info - integer. return code.
|
||||
!
|
||||
subroutine psb_sspfree(a, desc_a,info)
|
||||
!...free sparse matrix structure...
|
||||
use psb_descriptor_type
|
||||
use psb_serial_mod
|
||||
use psb_const_mod
|
||||
use psb_error_mod
|
||||
use psb_sparse_mod, psb_protect_name => psb_sspfree
|
||||
implicit none
|
||||
|
||||
!....parameters...
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user