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.psblas3-type-indexed
Salvatore Filippone
15 years ago
parent
339d53c4da
commit
588dce7b4c
@ -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
|
||||
@ -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
|
||||
@ -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
|
||||
@ -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
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue