mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-24 14:51:49 +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
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user