fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas-dev:

Browse Source 
README
 base/comm/psb_dgather.f90
 base/comm/psb_dhalo.f90
 base/comm/psb_dovrl.f90
 base/comm/psb_dscatter.F90
 base/comm/psb_ihalo.f90
 base/comm/psb_zgather.f90
 base/comm/psb_zhalo.f90
 base/comm/psb_zovrl.f90
 base/comm/psb_zscatter.F90
 base/internals/psi_dswapdata.F90
 base/internals/psi_dswaptran.F90
 base/internals/psi_iswapdata.F90
 base/internals/psi_iswaptran.F90
 base/internals/psi_zswapdata.F90
 base/internals/psi_zswaptran.F90
 base/modules/Makefile
 base/modules/cutil.c
 base/modules/fakempi.c
 base/modules/psb_comm_mod.f90
 base/modules/psb_const_mod.f90
 base/modules/psb_desc_type.f90
 base/modules/psb_error_mod.F90
 base/modules/psb_inter_desc_type.f90
 base/modules/psb_penv_mod.F90
 base/modules/psb_psblas_mod.f90
 base/modules/psb_realloc_mod.F90
 base/modules/psb_serial_mod.f90
 base/modules/psb_sort_mod.f90
 base/modules/psb_spmat_type.f90
 base/modules/psb_spsb_mod.f90
 base/modules/psb_tools_mod.f90
 base/modules/psi_mod.f90
 base/modules/psi_serial_mod.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_dnrmi.f90
 base/psblas/psb_dspmm.f90
 base/psblas/psb_dspsm.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_znrmi.f90
 base/psblas/psb_zspmm.f90
 base/psblas/psb_zspsm.f90
 base/serial/aux/dasr.f90
 base/serial/aux/dasrx.f90
 base/serial/aux/dmsort_dw.f90
 base/serial/aux/dmsort_up.f90
 base/serial/aux/dmsr.f90
 base/serial/aux/dmsrx.f90
 base/serial/aux/dsr.f90
 base/serial/aux/dsrx.f90
 base/serial/aux/zacmp_mod.f90
 base/serial/aux/zalcmp_mod.f90
 base/serial/aux/zalsr.f90
 base/serial/aux/zalsrx.f90
 base/serial/aux/zamsort_dw.f90
 base/serial/aux/zamsort_up.f90
 base/serial/aux/zamsr.f90
 base/serial/aux/zamsrx.f90
 base/serial/aux/zasr.f90
 base/serial/aux/zasrx.f90
 base/serial/aux/zlcmp_mod.f90
 base/serial/aux/zlsr.f90
 base/serial/aux/zlsrx.f90
 base/serial/coo/dcoomm.f
 base/serial/coo/dcoomv.f
 base/serial/coo/dcoonrmi.f
 base/serial/coo/dcoorws.f
 base/serial/coo/dcoosm.f
 base/serial/coo/dcoosv.f
 base/serial/coo/zcoomm.f
 base/serial/coo/zcoomv.f
 base/serial/coo/zcoonrmi.f
 base/serial/coo/zcoorws.f
 base/serial/coo/zcoosm.f
 base/serial/coo/zcoosv.f
 base/serial/csr/dcrnrmi.f
 base/serial/csr/dcsrck.f
 base/serial/csr/dcsrmm.f
 base/serial/csr/dcsrmv.f
 base/serial/csr/dcsrmv2.f
 base/serial/csr/dcsrmv3.f
 base/serial/csr/dcsrmv4.f
 base/serial/csr/dcsrrws.f
 base/serial/csr/dcsrsm.f
 base/serial/csr/dcsrsv.f
 base/serial/csr/zcrnrmi.f
 base/serial/csr/zcsrck.f
 base/serial/csr/zcsrmm.f
 base/serial/csr/zcsrrws.f
 base/serial/csr/zcsrsm.f
 base/serial/csr/zsrmv.f
 base/serial/csr/zsrsv.f
 base/serial/dp/dcoco.f
 base/serial/dp/dcocr.f
 base/serial/dp/dcrco.f
 base/serial/dp/dcrcr.f
 base/serial/dp/dcrjd.f
 base/serial/dp/dcsrp1.f
 base/serial/dp/dcsrrp.f
 base/serial/dp/dgind_tri.f
 base/serial/dp/dgindex.f
 base/serial/dp/djadrp.f
 base/serial/dp/djadrp1.f
 base/serial/dp/djdco.f
 base/serial/dp/djdcox.f
 base/serial/dp/dvtfg.f
 base/serial/dp/reordvn.f
 base/serial/dp/zcoco.f
 base/serial/dp/zcocr.f
 base/serial/dp/zcrco.f
 base/serial/dp/zcrcr.f
 base/serial/dp/zcrjd.f
 base/serial/dp/zgind_tri.f
 base/serial/dp/zgindex.f
 base/serial/f77/daxpby.f
 base/serial/f77/dcsmm.f
 base/serial/f77/dcsnmi.f
 base/serial/f77/dcsrp.f
 base/serial/f77/dcsrws.f
 base/serial/f77/dcssm.f
 base/serial/f77/dgelp.f
 base/serial/f77/dlpupd.f
 base/serial/f77/dswmm.f
 base/serial/f77/dswsm.f
 base/serial/f77/smmp.f
 base/serial/f77/zaxpby.f
 base/serial/f77/zcsmm.f
 base/serial/f77/zcsnmi.f
 base/serial/f77/zcsrws.f
 base/serial/f77/zcssm.f
 base/serial/f77/zgelp.f
 base/serial/f77/zlpupd.f
 base/serial/f77/zswmm.f
 base/serial/f77/zswsm.f
 base/serial/jad/djadmm.f
 base/serial/jad/djadmv.f
 base/serial/jad/djadmv2.f
 base/serial/jad/djadmv3.f
 base/serial/jad/djadmv4.f
 base/serial/jad/djadnr.f
 base/serial/jad/djadrws.f
 base/serial/jad/djadsm.f
 base/serial/jad/djadsv.f
 base/serial/jad/djdnrmi.f
 base/serial/jad/djdrws.f
 base/serial/psb_dcoins.f90
 base/serial/psb_dcsmm.f90
 base/serial/psb_dcsmv.f90
 base/serial/psb_dcsnmi.f90
 base/serial/psb_dcsrp.f90
 base/serial/psb_dcsrws.f90
 base/serial/psb_dcssm.f90
 base/serial/psb_dcssv.f90
 base/serial/psb_dgelp.f90
 base/serial/psb_dneigh.f90
 base/serial/psb_dnumbmm.f90
 base/serial/psb_dspcnv.f90
 base/serial/psb_dspgetrow.f90
 base/serial/psb_dspgtdiag.f90
 base/serial/psb_dspscal.f90
 base/serial/psb_dsymbmm.f90
 base/serial/psb_getrow_mod.f90
 base/serial/psb_regen_mod.f90
 base/serial/psb_update_mod.f90
 base/serial/psb_zcoins.f90
 base/serial/psb_zcsmm.f90
 base/serial/psb_zcsmv.f90
 base/serial/psb_zcsnmi.f90
 base/serial/psb_zcsrp.f90
 base/serial/psb_zcsrws.f90
 base/serial/psb_zcssm.f90
 base/serial/psb_zcssv.f90
 base/serial/psb_zgelp.f90
 base/serial/psb_zneigh.f90
 base/serial/psb_znumbmm.f90
 base/serial/psb_zspcnv.f90
 base/serial/psb_zspgetrow.f90
 base/serial/psb_zspgtdiag.f90
 base/serial/psb_zspscal.f90
 base/serial/psb_zsymbmm.f90
 base/tools/psb_dallc.f90
 base/tools/psb_dasb.f90
 base/tools/psb_dfree.f90
 base/tools/psb_dins.f90
 base/tools/psb_dsphalo.F90
 base/tools/psb_dspins.f90
 base/tools/psb_zallc.f90
 base/tools/psb_zasb.f90
 base/tools/psb_zfree.f90
 base/tools/psb_zins.f90
 base/tools/psb_zsphalo.F90
 base/tools/psb_zspins.f90
 docs/pdf/datastruct.tex
 docs/pdf/penv.tex
 docs/userguide.pdf
 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_zbicg.f90
 krylov/psb_zcg.f90
 krylov/psb_zcgs.f90
 krylov/psb_zcgstab.f90
 krylov/psb_zcgstabl.f90
 krylov/psb_zrgmres.f90
 prec/psb_dbjac_aply.f90
 prec/psb_dbjac_bld.f90
 prec/psb_dgprec_aply.f90
 prec/psb_dilu_fct.f90
 prec/psb_dprc_aply.f90
 prec/psb_dprecset.f90
 prec/psb_prec_mod.f90
 prec/psb_prec_type.f90
 prec/psb_zbjac_aply.f90
 prec/psb_zbjac_bld.f90
 prec/psb_zgprec_aply.f90
 prec/psb_zilu_fct.f90
 prec/psb_zprc_aply.f90
 prec/psb_zprecset.f90
 test/fileread/df_sample.f90
 test/fileread/getp.f90
 test/fileread/zf_sample.f90
 test/pargen/ppde.f90
 test/util/Makefile
 util/psb_hbio_mod.f90
 util/psb_mat_dist_mod.f90
 util/psb_metispart_mod.F90
 util/psb_mmio_mod.f90
 util/psb_read_mat_mod.f90

Merged kind type names changes from r:2905:2906 in branches/psblas-2.2-maint.
This commit is contained in:
Salvatore Filippone
2008-03-05 10:28:14 +00:00
parent ffb96464ee
commit c1d96960d8
241 changed files with 6030 additions and 5745 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README
+18 -12
View File
@@ -69,8 +69,9 @@ prerequisites (see also SERIAL below):
1. A working version of MPI
2. The MPI version of the BLACS from
http://www.netlib.org/blacs/index.html
2. The MPI version of the BLACS; some systems (e.g. IBM SP) provide
a specific version, otherwise you can find it at
http://www.netlib.org/blacs/index.html
3. A version of the BLAS; if you don't have a specific version for
your platform you may try ATLAS available from
@@ -78,14 +79,14 @@ prerequisites (see also SERIAL below):
4. We have had good results with the METIS library, from
http://www-users.cs.umn.edu/~karypis/metis/metis/main.html
This is optional: it is used in the util and test/fileread
directories if you define the HAVE_METIS directive.
This is optional; it is used in the util and test/fileread
directories but only if you define the HAVE_METIS directive.
We offer an experimental configure script: if everything works well,
it will generate a Make.inc file suitable for building the library.
The script is capable of recognizing the needed libraries with their
default names; if they are in unusual places consider adding the paths
with --with-lib, or explicitly specify the names in --with-blas and
with --with-lib, or explicitly specifying the names in --with-blas and
friends.
Please note that a common way for the configure script to fail is to
specify inconsistent MPI vs. plain compilers, either directly or
@@ -105,16 +106,18 @@ An annoying problem exists with some versions of MPICH: the configure
script will set -DMPI_MOD, which is to say, the MPI call interfaces
will be resolved by using the MPI Fortran module. However usage of the
module may cause compilation to fail if coupled with the debugging
option -g, because the compiler complains that it cannot find any
option -ggdb, because the compiler complains that it cannot find any
matching interface.
The solution: either take out the -g option, or, if you really need to
debug, force -DMPI_H in place of -DMPI_MOD.
The solution: either take out the -ggdb option, or, if you really need
to debug, force -DMPI_H in place of -DMPI_MOD.
As a backup alternative, you can choose a Make.inc.XXX file in
As a backup alternative, you can always choose a Make.inc.XXX file in
directory Make that fits your compilers, modify the paths to libraries
to match your installation and copy it to Make.inc in the top
directory. Then run
directory.
After you have Make.inc fixed, run
make
to compile the library; go to the test directory and its
subdirectories to get test programs done.
@@ -131,6 +134,8 @@ SERIAL: We now provide an (experimental) option to run in serial
TODO:
Fix all reamining bugs. Bugs? We dont' have any ! ;-)
Work on a single precision version if there is sufficient demand for
it.
The PSBLAS team.
@@ -145,8 +150,9 @@ Salvatore Filippone
Alfredo Buttari
In a sister package we are going to provide a library of multilevel
parallel preconditioners that were developed with the contribution of:
In a sister package called MLD2P4 we are going to provide a library of
more sophisticated preconditioners, including parallel multilevel ones
that were developed with the contribution of:
Pasqua D'Ambra
Daniela di Serafino
base/comm/psb_dgather.f90
+4 -4
View File
@@ -53,8 +53,8 @@ subroutine psb_dgatherm(globx, locx, desc_a, info, iroot)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: locx(:,:)
real(kind(1.d0)), intent(out) :: globx(:,:)
real(psb_dpk_), intent(in) :: locx(:,:)
real(psb_dpk_), intent(out) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: iroot
@@ -225,8 +225,8 @@ subroutine psb_dgatherv(globx, locx, desc_a, info, iroot)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: locx(:)
real(kind(1.d0)), intent(out) :: globx(:)
real(psb_dpk_), intent(in) :: locx(:)
real(psb_dpk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: iroot
base/comm/psb_dhalo.f90
+8 -8
View File
@@ -64,11 +64,11 @@ subroutine psb_dhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout), target :: x(:,:)
real(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional :: alpha
real(kind(1.d0)), optional, target :: work(:)
real(psb_dpk_), intent(in), optional :: alpha
real(psb_dpk_), optional, target :: work(:)
integer, intent(in), optional :: mode,jx,ik,data
character, intent(in), optional :: tran
@@ -76,7 +76,7 @@ subroutine psb_dhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
integer :: ictxt, np, me,&
& err_act, m, n, iix, jjx, ix, ijx, k, maxk, nrow, imode, i,&
& err, liwork,data_
real(kind(1.d0)),pointer :: iwork(:), xp(:,:)
real(psb_dpk_),pointer :: iwork(:), xp(:,:)
character :: tran_
character(len=20) :: name, ch_err
logical :: aliw
@@ -291,11 +291,11 @@ subroutine psb_dhalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout) :: x(:)
real(psb_dpk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional :: alpha
real(kind(1.d0)), target, optional :: work(:)
real(psb_dpk_), intent(in), optional :: alpha
real(psb_dpk_), target, optional :: work(:)
integer, intent(in), optional :: mode,data
character, intent(in), optional :: tran
@@ -303,7 +303,7 @@ subroutine psb_dhalov(x,desc_a,info,alpha,work,tran,mode,data)
integer :: ictxt, np, me,&
& err_act, m, n, iix, jjx, ix, ijx, nrow, imode,&
& err, liwork,data_
real(kind(1.d0)),pointer :: iwork(:)
real(psb_dpk_),pointer :: iwork(:)
character :: tran_
character(len=20) :: name, ch_err
logical :: aliw
base/comm/psb_dovrl.f90
+6 -6
View File
@@ -73,17 +73,17 @@ subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout), target :: x(:,:)
real(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), optional, target :: work(:)
real(psb_dpk_), optional, target :: work(:)
integer, intent(in), optional :: update,jx,ik,mode
! locals
integer :: ictxt, np, me, &
& err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, maxk, update_,&
& mode_, err, liwork
real(kind(1.d0)),pointer :: iwork(:), xp(:,:)
real(psb_dpk_),pointer :: iwork(:), xp(:,:)
logical :: do_swap
character(len=20) :: name, ch_err
logical :: aliw
@@ -280,17 +280,17 @@ subroutine psb_dovrlv(x,desc_a,info,work,update,mode)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout), target :: x(:)
real(psb_dpk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), optional, target :: work(:)
real(psb_dpk_), optional, target :: work(:)
integer, intent(in), optional :: update,mode
! locals
integer :: ictxt, np, me, &
& err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,&
& mode_, err, liwork
real(kind(1.d0)),pointer :: iwork(:)
real(psb_dpk_),pointer :: iwork(:)
logical :: do_swap
character(len=20) :: name, ch_err
logical :: aliw
base/comm/psb_dscatter.F90
+6 -6
View File
@@ -57,8 +57,8 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, iroot)
include 'mpif.h'
#endif
real(kind(1.d0)), intent(out) :: locx(:,:)
real(kind(1.d0)), intent(in) :: globx(:,:)
real(psb_dpk_), intent(out) :: locx(:,:)
real(psb_dpk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: iroot
@@ -69,7 +69,7 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, iroot)
& err_act, m, n, i, j, idx, nrow, iiroot, iglobx, jglobx,&
& ilocx, jlocx, lda_locx, lda_globx, lock, globk, icomm, k, maxk, root, ilx,&
& jlx, myrank, rootrank, c, pos
real(kind(1.d0)), allocatable :: scatterv(:)
real(psb_dpk_), allocatable :: scatterv(:)
integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:)
character(len=20) :: name, ch_err
@@ -286,8 +286,8 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, iroot)
include 'mpif.h'
#endif
real(kind(1.d0)), intent(out) :: locx(:)
real(kind(1.d0)), intent(in) :: globx(:)
real(psb_dpk_), intent(out) :: locx(:)
real(psb_dpk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: iroot
@@ -298,7 +298,7 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, iroot)
& err_act, m, n, i, j, idx, nrow, iglobx, jglobx,&
& ilocx, jlocx, lda_locx, lda_globx, root, k, icomm, myrank,&
& rootrank, pos, ilx, jlx
real(kind(1.d0)), allocatable :: scatterv(:)
real(psb_dpk_), allocatable :: scatterv(:)
integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:)
character(len=20) :: name, ch_err
base/comm/psb_ihalo.f90
+2 -2
View File
@@ -68,7 +68,7 @@ subroutine psb_ihalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
integer, intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional :: alpha
real(psb_dpk_), intent(in), optional :: alpha
integer, intent(inout), optional, target :: work(:)
integer, intent(in), optional :: mode,jx,ik,data
character, intent(in), optional :: tran
@@ -298,7 +298,7 @@ subroutine psb_ihalov(x,desc_a,info,alpha,work,tran,mode,data)
integer, intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional :: alpha
real(psb_dpk_), intent(in), optional :: alpha
integer, intent(inout), optional, target :: work(:)
integer, intent(in), optional :: mode,data
character, intent(in), optional :: tran
base/comm/psb_zgather.f90
+4 -4
View File
@@ -52,8 +52,8 @@ subroutine psb_zgatherm(globx, locx, desc_a, info, iroot)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: locx(:,:)
complex(kind(1.d0)), intent(out) :: globx(:,:)
complex(psb_dpk_), intent(in) :: locx(:,:)
complex(psb_dpk_), intent(out) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: iroot
@@ -228,8 +228,8 @@ subroutine psb_zgatherv(globx, locx, desc_a, info, iroot)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: locx(:)
complex(kind(1.d0)), intent(out) :: globx(:)
complex(psb_dpk_), intent(in) :: locx(:)
complex(psb_dpk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: iroot
base/comm/psb_zhalo.f90
+8 -8
View File
@@ -64,11 +64,11 @@ subroutine psb_zhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout), target :: x(:,:)
complex(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), intent(in), optional :: alpha
complex(kind(1.d0)), optional, target :: work(:)
complex(psb_dpk_), intent(in), optional :: alpha
complex(psb_dpk_), optional, target :: work(:)
integer, intent(in), optional :: mode,jx,ik,data
character, intent(in), optional :: tran
@@ -76,7 +76,7 @@ subroutine psb_zhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
integer :: ictxt, np, me, &
& err_act, m, n, iix, jjx, ix, ijx, k, maxk, nrow, imode, i,&
& err, liwork,data_
complex(kind(1.d0)),pointer :: iwork(:), xp(:,:)
complex(psb_dpk_),pointer :: iwork(:), xp(:,:)
character :: tran_
character(len=20) :: name, ch_err
logical :: aliw
@@ -292,18 +292,18 @@ subroutine psb_zhalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout) :: x(:)
complex(psb_dpk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), intent(in), optional :: alpha
complex(kind(1.d0)), target, optional :: work(:)
complex(psb_dpk_), intent(in), optional :: alpha
complex(psb_dpk_), target, optional :: work(:)
integer, intent(in), optional :: mode,data
character, intent(in), optional :: tran
! locals
integer :: ictxt, np, me, err_act, &
& m, n, iix, jjx, ix, ijx, nrow, imode, err, liwork,data_
complex(kind(1.d0)),pointer :: iwork(:)
complex(psb_dpk_),pointer :: iwork(:)
character :: tran_
character(len=20) :: name, ch_err
logical :: aliw
base/comm/psb_zovrl.f90
+6 -6
View File
@@ -74,17 +74,17 @@ subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout), target :: x(:,:)
complex(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), optional, target :: work(:)
complex(psb_dpk_), optional, target :: work(:)
integer, intent(in), optional :: update,jx,ik,mode
! locals
integer :: ictxt, np, me, &
& err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, maxk, update_,&
& mode_, err, liwork
complex(kind(1.d0)),pointer :: iwork(:), xp(:,:)
complex(psb_dpk_),pointer :: iwork(:), xp(:,:)
logical :: do_swap
character(len=20) :: name, ch_err
logical :: aliw
@@ -278,17 +278,17 @@ subroutine psb_zovrlv(x,desc_a,info,work,update,mode)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout), target :: x(:)
complex(psb_dpk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), optional, target :: work(:)
complex(psb_dpk_), optional, target :: work(:)
integer, intent(in), optional :: update,mode
! locals
integer :: ictxt, np, me, &
& err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,&
& mode_, err, liwork
complex(kind(1.d0)),pointer :: iwork(:)
complex(psb_dpk_),pointer :: iwork(:)
logical :: do_swap
character(len=20) :: name, ch_err
logical :: aliw
base/comm/psb_zscatter.F90
+6 -6
View File
@@ -57,8 +57,8 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, iroot)
include 'mpif.h'
#endif
complex(kind(1.d0)), intent(out) :: locx(:,:)
complex(kind(1.d0)), intent(in) :: globx(:,:)
complex(psb_dpk_), intent(out) :: locx(:,:)
complex(psb_dpk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: iroot
@@ -69,7 +69,7 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, iroot)
& err_act, m, n, i, j, idx, nrow, iiroot, iglobx, jglobx,&
& ilocx, jlocx, lda_locx, lda_globx, lock, globk, icomm, k, maxk, root, ilx,&
& jlx, myrank, rootrank, c, pos
complex(kind(1.d0)),allocatable :: scatterv(:)
complex(psb_dpk_),allocatable :: scatterv(:)
integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:)
character(len=20) :: name, ch_err
@@ -289,8 +289,8 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, iroot)
include 'mpif.h'
#endif
complex(kind(1.d0)), intent(out) :: locx(:)
complex(kind(1.d0)), intent(in) :: globx(:)
complex(psb_dpk_), intent(out) :: locx(:)
complex(psb_dpk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: iroot
@@ -301,7 +301,7 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, iroot)
& err_act, m, n, i, j, idx, nrow, iglobx, jglobx,&
& ilocx, jlocx, lda_locx, lda_globx, root, k, icomm, myrank,&
& rootrank, pos, ilx, jlx
complex(kind(1.d0)), allocatable :: scatterv(:)
complex(psb_dpk_), allocatable :: scatterv(:)
integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:)
character(len=20) :: name, ch_err
base/internals/psi_dswapdata.F90
+14 -14
View File
@@ -38,8 +38,8 @@
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a send on (PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -98,8 +98,8 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data)
integer, intent(in) :: flag, n
integer, intent(out) :: info
real(kind(1.d0)) :: y(:,:), beta
real(kind(1.d0)), target :: work(:)
real(psb_dpk_) :: y(:,:), beta
real(psb_dpk_), target :: work(:)
type(psb_desc_type),target :: desc_a
integer, optional :: data
@@ -171,8 +171,8 @@ subroutine psi_dswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
integer, intent(in) :: ictxt,icomm,flag,n
integer, intent(out) :: info
real(kind(1.d0)) :: y(:,:), beta
real(kind(1.d0)), target :: work(:)
real(psb_dpk_) :: y(:,:), beta
real(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd, totrcv
! locals
@@ -187,7 +187,7 @@ subroutine psi_dswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
& albf,do_send,do_recv
logical, parameter :: usersend=.false.
real(kind(1.d0)), pointer, dimension(:) :: sndbuf, rcvbuf
real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
#ifdef HAVE_VOLATILE
volatile :: sndbuf, rcvbuf
#endif
@@ -529,8 +529,8 @@ end subroutine psi_dswapidxm
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -587,8 +587,8 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data)
integer, intent(in) :: flag
integer, intent(out) :: info
real(kind(1.d0)) :: y(:), beta
real(kind(1.d0)), target :: work(:)
real(psb_dpk_) :: y(:), beta
real(psb_dpk_), target :: work(:)
type(psb_desc_type),target :: desc_a
integer, optional :: data
@@ -661,8 +661,8 @@ subroutine psi_dswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
real(kind(1.d0)) :: y(:), beta
real(kind(1.d0)), target :: work(:)
real(psb_dpk_) :: y(:), beta
real(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd, totrcv
! locals
@@ -678,7 +678,7 @@ subroutine psi_dswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
& albf,do_send,do_recv
logical, parameter :: usersend=.false.
real(kind(1.d0)), pointer, dimension(:) :: sndbuf, rcvbuf
real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
#ifdef HAVE_VOLATILE
volatile :: sndbuf, rcvbuf
#endif
base/internals/psi_dswaptran.F90
+14 -14
View File
@@ -42,8 +42,8 @@
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -101,8 +101,8 @@ subroutine psi_dswaptranm(flag,n,beta,y,desc_a,work,info,data)
integer, intent(in) :: flag, n
integer, intent(out) :: info
real(kind(1.d0)) :: y(:,:), beta
real(kind(1.d0)), target :: work(:)
real(psb_dpk_) :: y(:,:), beta
real(psb_dpk_), target :: work(:)
type(psb_desc_type),target :: desc_a
integer, optional :: data
@@ -175,8 +175,8 @@ subroutine psi_dtranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
integer, intent(in) :: ictxt,icomm,flag,n
integer, intent(out) :: info
real(kind(1.d0)) :: y(:,:), beta
real(kind(1.d0)), target :: work(:)
real(psb_dpk_) :: y(:,:), beta
real(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd, totrcv
! locals
@@ -191,7 +191,7 @@ subroutine psi_dtranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
& albf,do_send,do_recv
logical, parameter :: usersend=.false.
real(kind(1.d0)), pointer, dimension(:) :: sndbuf, rcvbuf
real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
#ifdef HAVE_VOLATILE
volatile :: sndbuf, rcvbuf
#endif
@@ -531,8 +531,8 @@ end subroutine psi_dtranidxm
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -590,8 +590,8 @@ subroutine psi_dswaptranv(flag,beta,y,desc_a,work,info,data)
integer, intent(in) :: flag
integer, intent(out) :: info
real(kind(1.d0)) :: y(:), beta
real(kind(1.d0)), target :: work(:)
real(psb_dpk_) :: y(:), beta
real(psb_dpk_), target :: work(:)
type(psb_desc_type),target :: desc_a
integer, optional :: data
@@ -665,8 +665,8 @@ subroutine psi_dtranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
real(kind(1.d0)) :: y(:), beta
real(kind(1.d0)), target :: work(:)
real(psb_dpk_) :: y(:), beta
real(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd, totrcv
! locals
@@ -681,7 +681,7 @@ subroutine psi_dtranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
& albf,do_send,do_recv
logical, parameter :: usersend=.false.
real(kind(1.d0)), pointer, dimension(:) :: sndbuf, rcvbuf
real(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
character(len=20) :: name
info = 0
base/internals/psi_iswapdata.F90
+4 -4
View File
@@ -38,8 +38,8 @@
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a send on (PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -528,8 +528,8 @@ end subroutine psi_iswapidxm
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
base/internals/psi_iswaptran.F90
+4 -4
View File
@@ -42,8 +42,8 @@
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -531,8 +531,8 @@ end subroutine psi_itranidxm
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
base/internals/psi_zswapdata.F90
+14 -14
View File
@@ -38,8 +38,8 @@
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a send on (PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -97,8 +97,8 @@ subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data)
integer, intent(in) :: flag, n
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:,:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:,:), beta
complex(psb_dpk_), target :: work(:)
type(psb_desc_type),target :: desc_a
integer, optional :: data
@@ -170,8 +170,8 @@ subroutine psi_zswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
integer, intent(in) :: ictxt,icomm,flag,n
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:,:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:,:), beta
complex(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd, totrcv
! locals
@@ -186,7 +186,7 @@ subroutine psi_zswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
& albf,do_send,do_recv
logical, parameter :: usersend=.false.
complex(kind(1.d0)), pointer, dimension(:) :: sndbuf, rcvbuf
complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
#ifdef HAVE_VOLATILE
volatile :: sndbuf, rcvbuf
#endif
@@ -528,8 +528,8 @@ end subroutine psi_zswapidxm
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -587,8 +587,8 @@ subroutine psi_zswapdatav(flag,beta,y,desc_a,work,info,data)
integer, intent(in) :: flag
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:), beta
complex(psb_dpk_), target :: work(:)
type(psb_desc_type),target :: desc_a
integer, optional :: data
@@ -661,8 +661,8 @@ subroutine psi_zswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:), beta
complex(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd, totrcv
! locals
@@ -678,7 +678,7 @@ subroutine psi_zswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
& albf,do_send,do_recv
logical, parameter :: usersend=.false.
complex(kind(1.d0)), pointer, dimension(:) :: sndbuf, rcvbuf
complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
#ifdef HAVE_VOLATILE
volatile :: sndbuf, rcvbuf
#endif
base/internals/psi_zswaptran.F90
+14 -14
View File
@@ -42,8 +42,8 @@
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -101,8 +101,8 @@ subroutine psi_zswaptranm(flag,n,beta,y,desc_a,work,info,data)
integer, intent(in) :: flag, n
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:,:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:,:), beta
complex(psb_dpk_), target :: work(:)
type(psb_desc_type),target :: desc_a
integer, optional :: data
@@ -175,8 +175,8 @@ subroutine psi_ztranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
integer, intent(in) :: ictxt,icomm,flag,n
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:,:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:,:), beta
complex(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd, totrcv
! locals
@@ -191,7 +191,7 @@ subroutine psi_ztranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
& albf,do_send,do_recv
logical, parameter :: usersend=.false.
complex(kind(1.d0)), pointer, dimension(:) :: sndbuf, rcvbuf
complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
#ifdef HAVE_VOLATILE
volatile :: sndbuf, rcvbuf
#endif
@@ -531,8 +531,8 @@ end subroutine psi_ztranidxm
! it is capable of pruning empty exchanges, which are very likely in out
! application environment. All the variants have the same structure
! In all these subroutines X may be: I Integer
! D real(kind(1.d0))
! Z complex(kind(1.d0))
! D real(psb_dpk_)
! Z complex(psb_dpk_)
! Basically the operation is as follows: on each process, we identify
! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y)));
! then we receive, and we do an update with Y = UNPACK(RCV(Y)) + BETA * Y
@@ -590,8 +590,8 @@ subroutine psi_zswaptranv(flag,beta,y,desc_a,work,info,data)
integer, intent(in) :: flag
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:), beta
complex(psb_dpk_), target :: work(:)
type(psb_desc_type),target :: desc_a
integer, optional :: data
@@ -665,8 +665,8 @@ subroutine psi_ztranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:), beta
complex(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd, totrcv
! locals
@@ -681,7 +681,7 @@ subroutine psi_ztranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
& albf,do_send,do_recv
logical, parameter :: usersend=.false.
complex(kind(1.d0)), pointer, dimension(:) :: sndbuf, rcvbuf
complex(psb_dpk_), pointer, dimension(:) :: sndbuf, rcvbuf
#ifdef HAVE_VOLATILE
volatile :: sndbuf, rcvbuf
#endif
base/modules/Makefile
+2 -2
View File
@@ -11,7 +11,7 @@ MODULES = psb_realloc_mod.o psb_string_mod.o psb_spmat_type.o \
LIBMOD=psb_base_mod$(.mod)
MPFOBJS=psb_penv_mod.o
OBJS = error.o psb_base_mod.o $(EXTRA_COBJS)
OBJS = error.o psb_base_mod.o $(EXTRA_COBJS) cutil.o
LIBDIR=..
CINCLUDES=-I.
FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG). $(FIFLAG).
@@ -33,7 +33,7 @@ psb_desc_type.o: psb_const_mod.o psb_error_mod.o psb_penv_mod.o psb_realloc_mod.
psb_inter_desc_type.o: psb_desc_type.o psb_spmat_type.o psb_error_mod.o psb_serial_mod.o psb_comm_mod.o
psb_check_mod.o: psb_desc_type.o
psb_serial_mod.o: psb_spmat_type.o psb_string_mod.o psb_sort_mod.o psi_serial_mod.o
psb_sort_mod.o: psb_error_mod.o psb_realloc_mod.o
psb_sort_mod.o: psb_error_mod.o psb_realloc_mod.o psb_const_mod.o
psb_methd_mod.o: psb_serial_mod.o psb_desc_type.o psb_prec_type.o
psb_tools_mod.o: psb_spmat_type.o psb_desc_type.o psi_mod.o psb_gps_mod.o psb_inter_desc_type.o
psb_gps_mod.o: psb_realloc_mod.o
base/modules/cutil.c
+28
View File
@@ -0,0 +1,28 @@
#include <sys/time.h>
#include <stdio.h>
#include <string.h>
#ifdef LowerUnderscore
#define psi_c_diffadd psi_c_diffadd_
#endif
#ifdef LowerDoubleUnderscore
#define psi_c_diffadd psi_c_diffadd__
#endif
#ifdef LowerCase
#define psi_c_diffadd psi_c_diffadd
#endif
#ifdef UpperUnderscore
#define psi_c_diffadd PSI_C_DIFFADD_
#endif
#ifdef UpperDoubleUnderscore
#define psi_c_diffadd PSI_C_DIFFADD__
#endif
#ifdef UpperCase
#define psi_c_diffadd PSI_C_DIFFADD
#endif
void psi_c_diffadd(void *p1, void *p2, int *ret)
{
*ret = p2-p1;
return;
}
base/modules/fakempi.c
+4 -4
View File
@@ -2,7 +2,7 @@
#include <stdio.h>
#include <string.h>
#ifdef LowerUndescore
#ifdef LowerUnderscore
#define mpi_wtime mpi_wtime_
#define mpi_send mpi_send_
#define mpi_irecv mpi_irecv_
@@ -12,7 +12,7 @@
#define mpi_allgather mpi_allgather_
#define mpi_allgatherv mpi_allgatherv_
#endif
#ifdef LowerDoubleUndescore
#ifdef LowerDoubleUnderscore
#define mpi_wtime mpi_wtime__
#define mpi_send mpi_send__
#define mpi_irecv mpi_irecv__
@@ -32,7 +32,7 @@
#define mpi_allgather mpi_allgather
#define mpi_allgatherv mpi_allgatherv
#endif
#ifdef UpperUndescore
#ifdef UpperUnderscore
#define mpi_wtime MPI_WTIME_
#define mpi_send MPI_SEND_
#define mpi_irecv MPI_IRECV_
@@ -42,7 +42,7 @@
#define mpi_allgather MPI_ALLGATHER_
#define mpi_allgatherv MPI_ALLGATHERV_
#endif
#ifdef UpperDoubleUndescore
#ifdef UpperDoubleUnderscore
#define mpi_wtime MPI_WTIME__
#define mpi_send MPI_SEND__
#define mpi_irecv MPI_IRECV__
base/modules/psb_comm_mod.f90
+40 -40
View File
@@ -34,18 +34,18 @@ module psb_comm_mod
interface psb_ovrl
subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
real(kind(1.d0)), intent(inout) :: x(:,:)
real(psb_dpk_), intent(inout) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(inout), optional :: work(:)
real(psb_dpk_), intent(inout), optional :: work(:)
integer, intent(in), optional :: update,jx,ik,mode
end subroutine psb_dovrlm
subroutine psb_dovrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type
real(kind(1.d0)), intent(inout) :: x(:)
real(psb_dpk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(inout), optional :: work(:)
real(psb_dpk_), intent(inout), optional :: work(:)
integer, intent(in), optional :: update,mode
end subroutine psb_dovrlv
subroutine psb_iovrlm(x,desc_a,info,jx,ik,work,update,mode)
@@ -53,7 +53,7 @@ module psb_comm_mod
integer, intent(inout) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(inout), optional :: work(:)
real(psb_dpk_), intent(inout), optional :: work(:)
integer, intent(in), optional :: update,jx,ik,mode
end subroutine psb_iovrlm
subroutine psb_iovrlv(x,desc_a,info,work,update,mode)
@@ -61,23 +61,23 @@ module psb_comm_mod
integer, intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(inout), optional :: work(:)
real(psb_dpk_), intent(inout), optional :: work(:)
integer, intent(in), optional :: update,mode
end subroutine psb_iovrlv
subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode)
use psb_descriptor_type
complex(kind(1.d0)), intent(inout) :: x(:,:)
complex(psb_dpk_), intent(inout) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), intent(inout), optional :: work(:)
complex(psb_dpk_), intent(inout), optional :: work(:)
integer, intent(in), optional :: update,jx,ik,mode
end subroutine psb_zovrlm
subroutine psb_zovrlv(x,desc_a,info,work,update,mode)
use psb_descriptor_type
complex(kind(1.d0)), intent(inout) :: x(:)
complex(psb_dpk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), intent(inout), optional :: work(:)
complex(psb_dpk_), intent(inout), optional :: work(:)
integer, intent(in), optional :: update,mode
end subroutine psb_zovrlv
end interface
@@ -85,21 +85,21 @@ module psb_comm_mod
interface psb_halo
subroutine psb_dhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_descriptor_type
real(kind(1.d0)), intent(inout) :: x(:,:)
real(psb_dpk_), intent(inout) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional :: alpha
real(kind(1.d0)), target, optional :: work(:)
real(psb_dpk_), intent(in), optional :: alpha
real(psb_dpk_), target, optional :: work(:)
integer, intent(in), optional :: mode,jx,ik,data
character, intent(in), optional :: tran
end subroutine psb_dhalom
subroutine psb_dhalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
real(kind(1.d0)), intent(inout) :: x(:)
real(psb_dpk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional :: alpha
real(kind(1.d0)), target, optional :: work(:)
real(psb_dpk_), intent(in), optional :: alpha
real(psb_dpk_), target, optional :: work(:)
integer, intent(in), optional :: mode,data
character, intent(in), optional :: tran
end subroutine psb_dhalov
@@ -108,7 +108,7 @@ module psb_comm_mod
integer, intent(inout) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional :: alpha
real(psb_dpk_), intent(in), optional :: alpha
integer, intent(inout), optional :: work(:)
integer, intent(in), optional :: mode,jx,ik,data
character, intent(in), optional :: tran
@@ -118,28 +118,28 @@ module psb_comm_mod
integer, intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional :: alpha
real(psb_dpk_), intent(in), optional :: alpha
integer, intent(inout), optional :: work(:)
integer, intent(in), optional :: mode,data
character, intent(in), optional :: tran
end subroutine psb_ihalov
subroutine psb_zhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
use psb_descriptor_type
complex(kind(1.d0)), intent(inout) :: x(:,:)
complex(psb_dpk_), intent(inout) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), intent(in), optional :: alpha
complex(kind(1.d0)), target, optional :: work(:)
complex(psb_dpk_), intent(in), optional :: alpha
complex(psb_dpk_), target, optional :: work(:)
integer, intent(in), optional :: mode,jx,ik,data
character, intent(in), optional :: tran
end subroutine psb_zhalom
subroutine psb_zhalov(x,desc_a,info,alpha,work,tran,mode,data)
use psb_descriptor_type
complex(kind(1.d0)), intent(inout) :: x(:)
complex(psb_dpk_), intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), intent(in), optional :: alpha
complex(kind(1.d0)), target, optional :: work(:)
complex(psb_dpk_), intent(in), optional :: alpha
complex(psb_dpk_), target, optional :: work(:)
integer, intent(in), optional :: mode,data
character, intent(in), optional :: tran
end subroutine psb_zhalov
@@ -149,32 +149,32 @@ module psb_comm_mod
interface psb_dscatter
subroutine psb_dscatterm(globx, locx, desc_a, info, root)
use psb_descriptor_type
real(kind(1.d0)), intent(out) :: locx(:,:)
real(kind(1.d0)), intent(in) :: globx(:,:)
real(psb_dpk_), intent(out) :: locx(:,:)
real(psb_dpk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: root
end subroutine psb_dscatterm
subroutine psb_dscatterv(globx, locx, desc_a, info, root)
use psb_descriptor_type
real(kind(1.d0)), intent(out) :: locx(:)
real(kind(1.d0)), intent(in) :: globx(:)
real(psb_dpk_), intent(out) :: locx(:)
real(psb_dpk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: root
end subroutine psb_dscatterv
subroutine psb_zscatterm(globx, locx, desc_a, info, root)
use psb_descriptor_type
complex(kind(1.d0)), intent(out) :: locx(:,:)
complex(kind(1.d0)), intent(in) :: globx(:,:)
complex(psb_dpk_), intent(out) :: locx(:,:)
complex(psb_dpk_), intent(in) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: root
end subroutine psb_zscatterm
subroutine psb_zscatterv(globx, locx, desc_a, info, root)
use psb_descriptor_type
complex(kind(1.d0)), intent(out) :: locx(:)
complex(kind(1.d0)), intent(in) :: globx(:)
complex(psb_dpk_), intent(out) :: locx(:)
complex(psb_dpk_), intent(in) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: root
@@ -216,32 +216,32 @@ module psb_comm_mod
end subroutine psb_igatherv
subroutine psb_dgatherm(globx, locx, desc_a, info, root)
use psb_descriptor_type
real(kind(1.d0)), intent(in) :: locx(:,:)
real(kind(1.d0)), intent(out) :: globx(:,:)
real(psb_dpk_), intent(in) :: locx(:,:)
real(psb_dpk_), intent(out) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: root
end subroutine psb_dgatherm
subroutine psb_dgatherv(globx, locx, desc_a, info, root)
use psb_descriptor_type
real(kind(1.d0)), intent(in) :: locx(:)
real(kind(1.d0)), intent(out) :: globx(:)
real(psb_dpk_), intent(in) :: locx(:)
real(psb_dpk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: root
end subroutine psb_dgatherv
subroutine psb_zgatherm(globx, locx, desc_a, info, root)
use psb_descriptor_type
complex(kind(1.d0)), intent(in) :: locx(:,:)
complex(kind(1.d0)), intent(out) :: globx(:,:)
complex(psb_dpk_), intent(in) :: locx(:,:)
complex(psb_dpk_), intent(out) :: globx(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: root
end subroutine psb_zgatherm
subroutine psb_zgatherv(globx, locx, desc_a, info, root)
use psb_descriptor_type
complex(kind(1.d0)), intent(in) :: locx(:)
complex(kind(1.d0)), intent(out) :: globx(:)
complex(psb_dpk_), intent(in) :: locx(:)
complex(psb_dpk_), intent(out) :: globx(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, intent(in), optional :: root
base/modules/psb_const_mod.f90
+13 -7
View File
@@ -31,15 +31,21 @@
!!$
module psb_const_mod
!
! This must be the kind parameter corresponding to MPI_DOUBLE_PRECISION.
!
integer, parameter :: psb_dpk_ = kind(1.d0)
integer :: psb_sizeof_dp, psb_sizeof_int
!
! Handy & miscellaneous constants
!
integer, parameter :: izero=0, ione=1
integer, parameter :: itwo=2, ithree=3,mone=-1, psb_root_=0
real(kind(1.d0)), parameter :: dzero=0.d0, done=1.d0
complex(kind(1.d0)), parameter :: zzero=(0.d0,0.0d0)
complex(kind(1.d0)), parameter :: zone=(1.d0,0.0d0)
real(kind(1.d0)), parameter :: epstol=1.d-32, psb_percent_=0.7
character, parameter :: psb_all_='A', psb_topdef_=' '
integer, parameter :: izero=0, ione=1
integer, parameter :: itwo=2, ithree=3,mone=-1, psb_root_=0
real(psb_dpk_), parameter :: dzero=0.d0, done=1.d0
complex(psb_dpk_), parameter :: zzero=(0.d0,0.0d0)
complex(psb_dpk_), parameter :: zone=(1.d0,0.0d0)
real(psb_dpk_), parameter :: epstol=1.d-32, psb_percent_=0.7
character, parameter :: psb_all_='A', psb_topdef_=' '
end module psb_const_mod
base/modules/psb_desc_type.f90
+14 -14
View File
@@ -382,20 +382,20 @@ contains
integer, external :: SizeofPairSearchTree
val = 0
if (allocated(desc%matrix_data)) val = val + 4*size(desc%matrix_data)
if (allocated(desc%halo_index)) val = val + 4*size(desc%halo_index)
if (allocated(desc%ext_index)) val = val + 4*size(desc%ext_index)
if (allocated(desc%bnd_elem)) val = val + 4*size(desc%bnd_elem)
if (allocated(desc%ovrlap_index)) val = val + 4*size(desc%ovrlap_index)
if (allocated(desc%ovrlap_elem)) val = val + 4*size(desc%ovrlap_elem)
if (allocated(desc%ovr_mst_idx)) val = val + 4*size(desc%ovr_mst_idx)
if (allocated(desc%loc_to_glob)) val = val + 4*size(desc%loc_to_glob)
if (allocated(desc%glob_to_loc)) val = val + 4*size(desc%glob_to_loc)
if (allocated(desc%hashv)) val = val + 4*size(desc%hashv)
if (allocated(desc%glb_lc)) val = val + 4*size(desc%glb_lc)
if (allocated(desc%lprm)) val = val + 4*size(desc%lprm)
if (allocated(desc%idx_space)) val = val + 4*size(desc%idx_space)
if (allocated(desc%ptree)) val = val + 4*size(desc%ptree) +&
if (allocated(desc%matrix_data)) val = val + psb_sizeof_int*size(desc%matrix_data)
if (allocated(desc%halo_index)) val = val + psb_sizeof_int*size(desc%halo_index)
if (allocated(desc%ext_index)) val = val + psb_sizeof_int*size(desc%ext_index)
if (allocated(desc%bnd_elem)) val = val + psb_sizeof_int*size(desc%bnd_elem)
if (allocated(desc%ovrlap_index)) val = val + psb_sizeof_int*size(desc%ovrlap_index)
if (allocated(desc%ovrlap_elem)) val = val + psb_sizeof_int*size(desc%ovrlap_elem)
if (allocated(desc%ovr_mst_idx)) val = val + psb_sizeof_int*size(desc%ovr_mst_idx)
if (allocated(desc%loc_to_glob)) val = val + psb_sizeof_int*size(desc%loc_to_glob)
if (allocated(desc%glob_to_loc)) val = val + psb_sizeof_int*size(desc%glob_to_loc)
if (allocated(desc%hashv)) val = val + psb_sizeof_int*size(desc%hashv)
if (allocated(desc%glb_lc)) val = val + psb_sizeof_int*size(desc%glb_lc)
if (allocated(desc%lprm)) val = val + psb_sizeof_int*size(desc%lprm)
if (allocated(desc%idx_space)) val = val + psb_sizeof_int*size(desc%idx_space)
if (allocated(desc%ptree)) val = val + psb_sizeof_int*size(desc%ptree) +&
& SizeofPairSearchTree(desc%ptree)
psb_cd_sizeof = val
base/modules/psb_error_mod.F90
+1 -1
View File
@@ -62,7 +62,7 @@ module psb_error_mod
character(len=20) :: routine=''
! array of integer data to complete the error msg
integer,dimension(5) :: i_err_data=0
! real(kind(1.d0))(dim=10) :: r_err_data=0.d0 ! array of real data to complete the error msg
! real(psb_dpk_)(dim=10) :: r_err_data=0.d0 ! array of real data to complete the error msg
! complex(dim=10) :: c_err_data=0.c0 ! array of complex data to complete the error msg
! array of character data to complete the error msg
character(len=40) :: a_err_data=''
base/modules/psb_inter_desc_type.f90
+20 -20
View File
@@ -479,14 +479,14 @@ contains
use psi_mod
implicit none
type(psb_inter_desc_type), intent(in) :: desc
real(kind(1.d0)), intent(in) :: alpha,beta
real(kind(1.d0)), intent(inout) :: x(:)
real(kind(1.d0)), intent(out) :: y(:)
real(psb_dpk_), intent(in) :: alpha,beta
real(psb_dpk_), intent(inout) :: x(:)
real(psb_dpk_), intent(out) :: y(:)
integer, intent(out) :: info
real(kind(1.d0)), optional :: work(:)
real(psb_dpk_), optional :: work(:)
!
real(kind(1.d0)), allocatable :: xt(:)
real(psb_dpk_), allocatable :: xt(:)
integer :: itsz, i, j,totxch,totsnd,totrcv,&
& map_kind, map_data
character(len=20), parameter :: name='psb_forward_map'
@@ -553,14 +553,14 @@ contains
use psi_mod
implicit none
type(psb_inter_desc_type), intent(in) :: desc
real(kind(1.d0)), intent(in) :: alpha,beta
real(kind(1.d0)), intent(inout) :: x(:)
real(kind(1.d0)), intent(out) :: y(:)
real(psb_dpk_), intent(in) :: alpha,beta
real(psb_dpk_), intent(inout) :: x(:)
real(psb_dpk_), intent(out) :: y(:)
integer, intent(out) :: info
real(kind(1.d0)), optional :: work(:)
real(psb_dpk_), optional :: work(:)
!
real(kind(1.d0)), allocatable :: xt(:)
real(psb_dpk_), allocatable :: xt(:)
integer :: itsz, i, j,totxch,totsnd,totrcv,&
& map_kind, map_data
character(len=20), parameter :: name='psb_backward_map'
@@ -624,14 +624,14 @@ contains
use psi_mod
implicit none
type(psb_inter_desc_type), intent(in) :: desc
complex(kind(1.d0)), intent(in) :: alpha,beta
complex(kind(1.d0)), intent(inout) :: x(:)
complex(kind(1.d0)), intent(out) :: y(:)
complex(psb_dpk_), intent(in) :: alpha,beta
complex(psb_dpk_), intent(inout) :: x(:)
complex(psb_dpk_), intent(out) :: y(:)
integer, intent(out) :: info
complex(kind(1.d0)), optional :: work(:)
complex(psb_dpk_), optional :: work(:)
!
complex(kind(1.d0)), allocatable :: xt(:)
complex(psb_dpk_), allocatable :: xt(:)
integer :: itsz, i, j,totxch,totsnd,totrcv,&
& map_kind, map_data
character(len=20), parameter :: name='psb_forward_map'
@@ -695,14 +695,14 @@ contains
use psi_mod
implicit none
type(psb_inter_desc_type), intent(in) :: desc
complex(kind(1.d0)), intent(in) :: alpha,beta
complex(kind(1.d0)), intent(inout) :: x(:)
complex(kind(1.d0)), intent(out) :: y(:)
complex(psb_dpk_), intent(in) :: alpha,beta
complex(psb_dpk_), intent(inout) :: x(:)
complex(psb_dpk_), intent(out) :: y(:)
integer, intent(out) :: info
complex(kind(1.d0)), optional :: work(:)
complex(psb_dpk_), optional :: work(:)
!
complex(kind(1.d0)), allocatable :: xt(:)
complex(psb_dpk_), allocatable :: xt(:)
integer :: itsz, i, j,totxch,totsnd,totrcv,&
& map_kind, map_data
character(len=20), parameter :: name='psb_backward_map'
base/modules/psb_penv_mod.F90
+207 -136
View File
File diff suppressed because it is too large Load Diff
base/modules/psb_psblas_mod.f90
+106 -106
View File
@@ -34,30 +34,30 @@ module psb_psblas_mod
interface psb_gedot
function psb_ddotv(x, y, desc_a,info)
use psb_descriptor_type
real(kind(1.d0)) :: psb_ddotv
real(kind(1.d0)), intent(in) :: x(:), y(:)
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(kind(1.d0)) :: psb_ddot
real(kind(1.d0)), intent(in) :: x(:,:), y(:,:)
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_zdotv(x, y, desc_a,info)
use psb_descriptor_type
complex(kind(1.d0)) :: psb_zdotv
complex(kind(1.d0)), intent(in) :: x(:), y(:)
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(kind(1.d0)) :: psb_zdot
complex(kind(1.d0)), intent(in) :: x(:,:), y(:,:)
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
@@ -67,29 +67,29 @@ module psb_psblas_mod
interface psb_gedots
subroutine psb_ddotvs(res,x, y, desc_a, info)
use psb_descriptor_type
real(kind(1.d0)), intent(out) :: res
real(kind(1.d0)), intent(in) :: x(:), y(:)
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(kind(1.d0)), intent(out) :: res(:)
real(kind(1.d0)), intent(in) :: x(:,:), y(:,:)
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_zdotvs(res,x, y, desc_a, info)
use psb_descriptor_type
complex(kind(1.d0)), intent(out) :: res
complex(kind(1.d0)), intent(in) :: x(:), y(:)
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(kind(1.d0)), intent(out) :: res(:)
complex(kind(1.d0)), intent(in) :: x(:,:), y(:,:)
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
@@ -99,18 +99,18 @@ module psb_psblas_mod
subroutine psb_daxpbyv(alpha, x, beta, y,&
& desc_a, info)
use psb_descriptor_type
real(kind(1.d0)), intent (in) :: x(:)
real(kind(1.d0)), intent (inout) :: y(:)
real(kind(1.d0)), intent (in) :: alpha, beta
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(kind(1.d0)), intent (in) :: x(:,:)
real(kind(1.d0)), intent (inout) :: y(:,:)
real(kind(1.d0)), intent (in) :: alpha, beta
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 :: n, jx, jy
integer, intent(out) :: info
@@ -118,18 +118,18 @@ module psb_psblas_mod
subroutine psb_zaxpbyv(alpha, x, beta, y,&
& desc_a, info)
use psb_descriptor_type
complex(kind(1.d0)), intent (in) :: x(:)
complex(kind(1.d0)), intent (inout) :: y(:)
complex(kind(1.d0)), intent (in) :: alpha, beta
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(kind(1.d0)), intent (in) :: x(:,:)
complex(kind(1.d0)), intent (inout) :: y(:,:)
complex(kind(1.d0)), intent (in) :: alpha, beta
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 :: n, jx, jy
integer, intent(out) :: info
@@ -139,31 +139,31 @@ module psb_psblas_mod
interface psb_geamax
function psb_damax(x, desc_a, info, jx)
use psb_descriptor_type
real(kind(1.d0)) psb_damax
real(kind(1.d0)), intent (in) :: x(:,:)
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(kind(1.d0)) psb_damaxv
real(kind(1.d0)), intent (in) :: x(:)
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_zamax(x, desc_a, info, jx)
use psb_descriptor_type
real(kind(1.d0)) psb_zamax
complex(kind(1.d0)), intent (in) :: x(:,:)
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(kind(1.d0)) psb_zamaxv
complex(kind(1.d0)), intent (in) :: x(:)
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
@@ -172,30 +172,30 @@ module psb_psblas_mod
interface psb_geamaxs
subroutine psb_damaxvs(res,x,desc_a,info)
use psb_descriptor_type
real(kind(1.d0)), intent (out) :: res
real(kind(1.d0)), intent (in) :: x(:)
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_dmamax(res,x,desc_a,info,jx)
use psb_descriptor_type
real(kind(1.d0)), intent (out) :: res(:)
real(kind(1.d0)), intent (in) :: x(:,:)
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 :: jx
end subroutine psb_dmamax
subroutine psb_zamaxvs(res,x,desc_a,info)
use psb_descriptor_type
real(kind(1.d0)), intent (out) :: res
complex(kind(1.d0)), intent (in) :: x(:)
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_zmamax(res,x,desc_a,info,jx)
use psb_descriptor_type
real(kind(1.d0)), intent (out) :: res(:)
complex(kind(1.d0)), intent (in) :: x(:,:)
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 :: jx
@@ -205,31 +205,31 @@ module psb_psblas_mod
interface psb_geasum
function psb_dasum(x, desc_a, info, jx)
use psb_descriptor_type
real(kind(1.d0)) psb_dasum
real(kind(1.d0)), intent (in) :: x(:,:)
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(kind(1.d0)) psb_dasumv
real(kind(1.d0)), intent (in) :: x(:)
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_zasum(x, desc_a, info, jx)
use psb_descriptor_type
real(kind(1.d0)) psb_zasum
complex(kind(1.d0)), intent (in) :: x(:,:)
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(kind(1.d0)) psb_zasumv
complex(kind(1.d0)), intent (in) :: x(:)
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
@@ -238,29 +238,29 @@ module psb_psblas_mod
interface psb_geasums
subroutine psb_dasumvs(res,x,desc_a,info)
use psb_descriptor_type
real(kind(1.d0)), intent (out) :: res
real(kind(1.d0)), intent (in) :: x(:)
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(kind(1.d0)), intent (out) :: res(:)
real(kind(1.d0)), intent (in) :: x(:,:)
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_zasumvs(res,x,desc_a,info)
use psb_descriptor_type
real(kind(1.d0)), intent (out) :: res
complex(kind(1.d0)), intent (in) :: x(:)
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(kind(1.d0)), intent (out) :: res(:)
complex(kind(1.d0)), intent (in) :: x(:,:)
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
@@ -270,31 +270,31 @@ module psb_psblas_mod
interface psb_genrm2
function psb_dnrm2(x, desc_a, info, jx)
use psb_descriptor_type
real(kind(1.d0)) psb_dnrm2
real(kind(1.d0)), intent (in) :: x(:,:)
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(kind(1.d0)) psb_dnrm2v
real(kind(1.d0)), intent (in) :: x(:)
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_znrm2(x, desc_a, info, jx)
use psb_descriptor_type
real(kind(1.d0)) psb_znrm2
complex(kind(1.d0)), intent (in) :: x(:,:)
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(kind(1.d0)) psb_znrm2v
complex(kind(1.d0)), intent (in) :: x(:)
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
@@ -303,15 +303,15 @@ module psb_psblas_mod
interface psb_genrm2s
subroutine psb_dnrm2vs(res,x,desc_a,info)
use psb_descriptor_type
real(kind(1.d0)), intent (out) :: res
real(kind(1.d0)), intent (in) :: x(:)
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_znrm2vs(res,x,desc_a,info)
use psb_descriptor_type
real(kind(1.d0)), intent (out) :: res
complex(kind(1.d0)), intent (in) :: x(:)
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
@@ -322,7 +322,7 @@ module psb_psblas_mod
function psb_dnrmi(a, desc_a,info)
use psb_serial_mod
use psb_descriptor_type
real(kind(1.d0)) :: psb_dnrmi
real(psb_dpk_) :: psb_dnrmi
type (psb_dspmat_type), intent (in) :: a
type (psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info
@@ -330,7 +330,7 @@ module psb_psblas_mod
function psb_znrmi(a, desc_a,info)
use psb_serial_mod
use psb_descriptor_type
real(kind(1.d0)) :: psb_znrmi
real(psb_dpk_) :: psb_znrmi
type (psb_zspmat_type), intent (in) :: a
type (psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info
@@ -343,12 +343,12 @@ module psb_psblas_mod
use psb_serial_mod
use psb_descriptor_type
type (psb_dspmat_type), intent(in) :: a
real(kind(1.d0)), intent(inout) :: x(:,:)
real(kind(1.d0)), intent(inout) :: y(:,:)
real(kind(1.d0)), intent(in) :: alpha, beta
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(kind(1.d0)), optional, intent(inout),target :: work(:)
real(psb_dpk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap
integer, intent(out) :: info
@@ -358,12 +358,12 @@ module psb_psblas_mod
use psb_serial_mod
use psb_descriptor_type
type (psb_dspmat_type), intent(in) :: a
real(kind(1.d0)), intent(inout) :: x(:)
real(kind(1.d0)), intent(inout) :: y(:)
real(kind(1.d0)), intent(in) :: alpha, beta
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(kind(1.d0)), optional, intent(inout),target :: work(:)
real(psb_dpk_), optional, intent(inout),target :: work(:)
logical, optional, intent(in) :: doswap
integer, intent(out) :: info
end subroutine psb_dspmv
@@ -372,12 +372,12 @@ module psb_psblas_mod
use psb_serial_mod
use psb_descriptor_type
type (psb_zspmat_type), intent(in) :: a
complex(kind(1.d0)), intent(inout) :: x(:,:)
complex(kind(1.d0)), intent(inout) :: y(:,:)
complex(kind(1.d0)), intent(in) :: alpha, beta
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(kind(1.d0)), optional, intent(inout),target :: work(:)
complex(psb_dpk_), optional, intent(inout),target :: work(:)
integer, optional, intent(in) :: k, jx, jy
logical, optional, intent(in) :: doswap
integer, intent(out) :: info
@@ -387,12 +387,12 @@ module psb_psblas_mod
use psb_serial_mod
use psb_descriptor_type
type (psb_zspmat_type), intent(in) :: a
complex(kind(1.d0)), intent(inout) :: x(:)
complex(kind(1.d0)), intent(inout) :: y(:)
complex(kind(1.d0)), intent(in) :: alpha, beta
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(kind(1.d0)), optional, intent(inout),target :: work(:)
complex(psb_dpk_), optional, intent(inout),target :: work(:)
logical, optional, intent(in) :: doswap
integer, intent(out) :: info
end subroutine psb_zspmv
@@ -405,14 +405,14 @@ module psb_psblas_mod
use psb_serial_mod
use psb_descriptor_type
type (psb_dspmat_type), intent(in) :: t
real(kind(1.d0)), intent(in) :: x(:,:)
real(kind(1.d0)), intent(inout) :: y(:,:)
real(kind(1.d0)), intent(in) :: alpha, beta
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, unit
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
real(kind(1.d0)), optional, intent(in),target :: work(:), diag(:)
real(psb_dpk_), optional, intent(in),target :: work(:), diag(:)
integer, intent(out) :: info
end subroutine psb_dspsm
subroutine psb_dspsv(alpha, t, x, beta, y,&
@@ -421,13 +421,13 @@ module psb_psblas_mod
use psb_serial_mod
use psb_descriptor_type
type (psb_dspmat_type), intent(in) :: t
real(kind(1.d0)), intent(in) :: x(:)
real(kind(1.d0)), intent(inout) :: y(:)
real(kind(1.d0)), intent(in) :: alpha, beta
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, unit
integer, optional, intent(in) :: choice
real(kind(1.d0)), optional, intent(in),target :: work(:), diag(:)
real(psb_dpk_), optional, intent(in),target :: work(:), diag(:)
integer, intent(out) :: info
end subroutine psb_dspsv
subroutine psb_zspsm(alpha, t, x, beta, y,&
@@ -436,14 +436,14 @@ module psb_psblas_mod
use psb_serial_mod
use psb_descriptor_type
type (psb_zspmat_type), intent(in) :: t
complex(kind(1.d0)), intent(in) :: x(:,:)
complex(kind(1.d0)), intent(inout) :: y(:,:)
complex(kind(1.d0)), intent(in) :: alpha, beta
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, unit
integer, optional, intent(in) :: n, jx, jy
integer, optional, intent(in) :: choice
complex(kind(1.d0)), optional, intent(in),target :: work(:), diag(:)
complex(psb_dpk_), optional, intent(in),target :: work(:), diag(:)
integer, intent(out) :: info
end subroutine psb_zspsm
subroutine psb_zspsv(alpha, t, x, beta, y,&
@@ -452,13 +452,13 @@ module psb_psblas_mod
use psb_serial_mod
use psb_descriptor_type
type (psb_zspmat_type), intent(in) :: t
complex(kind(1.d0)), intent(in) :: x(:)
complex(kind(1.d0)), intent(inout) :: y(:)
complex(kind(1.d0)), intent(in) :: alpha, beta
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, unit
integer, optional, intent(in) :: choice
complex(kind(1.d0)), optional, intent(in),target :: work(:), diag(:)
complex(psb_dpk_), optional, intent(in),target :: work(:), diag(:)
integer, intent(out) :: info
end subroutine psb_zspsv
end interface
base/modules/psb_realloc_mod.F90
+56 -56
View File
@@ -192,8 +192,8 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
real(kind(1.d0)), allocatable, intent(in) :: vin(:)
real(kind(1.d0)), allocatable, intent(out) :: vout(:)
real(psb_dpk_), allocatable, intent(in) :: vin(:)
real(psb_dpk_), allocatable, intent(out) :: vout(:)
integer :: info
! ...Local Variables
@@ -242,8 +242,8 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
real(kind(1.d0)), allocatable, intent(in) :: vin(:,:)
real(kind(1.d0)), allocatable, intent(out) :: vout(:,:)
real(psb_dpk_), allocatable, intent(in) :: vin(:,:)
real(psb_dpk_), allocatable, intent(out) :: vout(:,:)
integer :: info
! ...Local Variables
@@ -294,8 +294,8 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
complex(kind(1.d0)), allocatable, intent(in) :: vin(:)
complex(kind(1.d0)), allocatable, intent(out) :: vout(:)
complex(psb_dpk_), allocatable, intent(in) :: vin(:)
complex(psb_dpk_), allocatable, intent(out) :: vout(:)
integer :: info
! ...Local Variables
@@ -344,8 +344,8 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
complex(kind(1.d0)), allocatable, intent(in) :: vin(:,:)
complex(kind(1.d0)), allocatable, intent(out) :: vout(:,:)
complex(psb_dpk_), allocatable, intent(in) :: vin(:,:)
complex(psb_dpk_), allocatable, intent(out) :: vout(:,:)
integer :: info
! ...Local Variables
@@ -495,8 +495,8 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
real(kind(1.d0)), intent(in) :: vin(:)
real(kind(1.d0)), allocatable, intent(out) :: vout(:)
real(psb_dpk_), intent(in) :: vin(:)
real(psb_dpk_), allocatable, intent(out) :: vout(:)
integer :: info
! ...Local Variables
@@ -543,8 +543,8 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
real(kind(1.d0)), intent(in) :: vin(:,:)
real(kind(1.d0)), allocatable, intent(out) :: vout(:,:)
real(psb_dpk_), intent(in) :: vin(:,:)
real(psb_dpk_), allocatable, intent(out) :: vout(:,:)
integer :: info
! ...Local Variables
@@ -594,8 +594,8 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
complex(kind(1.d0)), intent(in) :: vin(:)
complex(kind(1.d0)), allocatable, intent(out) :: vout(:)
complex(psb_dpk_), intent(in) :: vin(:)
complex(psb_dpk_), allocatable, intent(out) :: vout(:)
integer :: info
! ...Local Variables
@@ -642,8 +642,8 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
complex(kind(1.d0)), intent(in) :: vin(:,:)
complex(kind(1.d0)), allocatable, intent(out) :: vout(:,:)
complex(psb_dpk_), intent(in) :: vin(:,:)
complex(psb_dpk_), allocatable, intent(out) :: vout(:,:)
integer :: info
! ...Local Variables
@@ -719,7 +719,7 @@ Contains
function psb_dsize1d(vin)
integer :: psb_dsize1d
real(kind(1.d0)), allocatable, intent(in) :: vin(:)
real(psb_dpk_), allocatable, intent(in) :: vin(:)
if (.not.allocated(vin)) then
psb_dsize1d = 0
@@ -729,7 +729,7 @@ Contains
end function psb_dsize1d
function psb_dsize2d(vin,dim)
integer :: psb_dsize2d
real(kind(1.d0)), allocatable, intent(in) :: vin(:,:)
real(psb_dpk_), allocatable, intent(in) :: vin(:,:)
integer, optional :: dim
integer :: dim_
@@ -749,7 +749,7 @@ Contains
function psb_zsize1d(vin)
integer :: psb_zsize1d
complex(kind(1.d0)), allocatable, intent(in) :: vin(:)
complex(psb_dpk_), allocatable, intent(in) :: vin(:)
if (.not.allocated(vin)) then
psb_zsize1d = 0
@@ -760,7 +760,7 @@ Contains
function psb_zsize2d(vin,dim)
integer :: psb_zsize2d
complex(kind(1.d0)), allocatable, intent(in) :: vin(:,:)
complex(psb_dpk_), allocatable, intent(in) :: vin(:,:)
integer, optional :: dim
integer :: dim_
@@ -841,10 +841,10 @@ Contains
! ...Subroutine Arguments
Integer,Intent(in) :: len
real(kind(1.d0)),allocatable, intent(inout) :: v(:)
real(psb_dpk_),allocatable, intent(inout) :: v(:)
integer :: info
integer, optional, intent(in) :: addsz,newsz
real(kind(1.d0)), optional, intent(in) :: pad
real(psb_dpk_), optional, intent(in) :: pad
! ...Local Variables
character(len=20) :: name
logical, parameter :: debug=.false.
@@ -900,10 +900,10 @@ Contains
! ...Subroutine Arguments
Integer,Intent(in) :: len
complex(kind(1.d0)),allocatable, intent(inout) :: v(:)
complex(psb_dpk_),allocatable, intent(inout) :: v(:)
integer :: info
integer, optional, intent(in) :: addsz,newsz
complex(kind(1.d0)), optional, intent(in) :: pad
complex(psb_dpk_), optional, intent(in) :: pad
! ...Local Variables
character(len=20) :: name
logical, parameter :: debug=.false.
@@ -1038,13 +1038,13 @@ Contains
! ...Subroutine Arguments
Integer,Intent(in) :: len
Real(kind(1.d0)),allocatable, intent(inout) :: rrax(:)
Real(psb_dpk_),allocatable, intent(inout) :: rrax(:)
integer :: info
real(kind(1.d0)), optional, intent(in) :: pad
real(psb_dpk_), optional, intent(in) :: pad
integer, optional, intent(in) :: lb
! ...Local Variables
Real(kind(1.d0)),allocatable :: tmp(:)
Real(psb_dpk_),allocatable :: tmp(:)
Integer :: dim,err_act,err, lb_, lbi,ub_
character(len=20) :: name
logical, parameter :: debug=.false.
@@ -1061,7 +1061,7 @@ Contains
endif
if ((len<0)) then
err=4025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='real(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='real(psb_dpk_)')
goto 9999
end if
ub_ = lb_ + len-1
@@ -1073,7 +1073,7 @@ Contains
Allocate(tmp(lb_:ub_),stat=info)
if (info /= 0) then
err=4025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='real(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='real(psb_dpk_)')
goto 9999
end if
tmp(lb_:lb_-1+min(len,dim))=rrax(lbi:lbi-1+min(len,dim))
@@ -1084,7 +1084,7 @@ Contains
Allocate(rrax(lb_:ub_),stat=info)
if (info /= 0) then
err=4025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='real(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='real(psb_dpk_)')
goto 9999
end if
endif
@@ -1113,13 +1113,13 @@ Contains
! ...Subroutine Arguments
Integer,Intent(in) :: len
complex(kind(1.d0)),allocatable, intent(inout):: rrax(:)
complex(psb_dpk_),allocatable, intent(inout):: rrax(:)
integer :: info
complex(kind(1.d0)), optional, intent(in) :: pad
complex(psb_dpk_), optional, intent(in) :: pad
integer, optional, intent(in) :: lb
! ...Local Variables
complex(kind(1.d0)),allocatable :: tmp(:)
complex(psb_dpk_),allocatable :: tmp(:)
Integer :: dim,err_act,err,lb_,ub_,lbi
character(len=20) :: name
logical, parameter :: debug=.false.
@@ -1135,7 +1135,7 @@ Contains
endif
if ((len<0)) then
err=4025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='complex(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='complex(psb_dpk_)')
goto 9999
end if
ub_ = lb_+len-1
@@ -1147,7 +1147,7 @@ Contains
Allocate(tmp(lb_:ub_),stat=info)
if (info /= 0) then
err=4025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='complex(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='complex(psb_dpk_)')
goto 9999
end if
tmp(lb_:lb_-1+min(len,dim))=rrax(lbi:lbi-1+min(len,dim))
@@ -1158,7 +1158,7 @@ Contains
Allocate(rrax(lb_:ub_),stat=info)
if (info /= 0) then
err=4025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='complex(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len,0,0,0,0/),a_err='complex(psb_dpk_)')
goto 9999
end if
endif
@@ -1187,14 +1187,14 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
Integer,Intent(in) :: len1,len2
Real(kind(1.d0)),allocatable :: rrax(:,:)
Real(psb_dpk_),allocatable :: rrax(:,:)
integer :: info
real(kind(1.d0)), optional, intent(in) :: pad
real(psb_dpk_), optional, intent(in) :: pad
Integer,Intent(in), optional :: lb1,lb2
! ...Local Variables
Real(kind(1.d0)),allocatable :: tmp(:,:)
Real(psb_dpk_),allocatable :: tmp(:,:)
Integer :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,&
& lbi1, lbi2
character(len=20) :: name
@@ -1217,12 +1217,12 @@ Contains
if (len1 < 0) then
err=4025
call psb_errpush(err,name,i_err=(/len1,0,0,0,0/),a_err='real(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len1,0,0,0,0/),a_err='real(psb_dpk_)')
goto 9999
end if
if (len2 < 0) then
err=4025
call psb_errpush(err,name,i_err=(/len2,0,0,0,0/),a_err='real(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len2,0,0,0,0/),a_err='real(psb_dpk_)')
goto 9999
end if
@@ -1237,7 +1237,7 @@ Contains
Allocate(tmp(lb1_:ub1_,lb2_:ub2_),stat=info)
if (info /= 0) then
err=4025
call psb_errpush(err,name,i_err=(/len1*len2,0,0,0,0/),a_err='real(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len1*len2,0,0,0,0/),a_err='real(psb_dpk_)')
goto 9999
end if
tmp(lb1_:lb1_-1+min(len1,dim),lb2_:lb2_-1+min(len2,dim2)) = &
@@ -1250,7 +1250,7 @@ Contains
Allocate(rrax(lb1_:ub1_,lb2_:ub2_),stat=info)
if (info /= 0) then
err=4025
call psb_errpush(err,name,i_err=(/len1*len2,0,0,0,0/),a_err='real(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len1*len2,0,0,0,0/),a_err='real(psb_dpk_)')
goto 9999
end if
endif
@@ -1280,14 +1280,14 @@ Contains
use psb_error_mod
! ...Subroutine Arguments
Integer,Intent(in) :: len1,len2
complex(kind(1.d0)),allocatable :: rrax(:,:)
complex(psb_dpk_),allocatable :: rrax(:,:)
integer :: info
complex(kind(1.d0)), optional, intent(in) :: pad
complex(psb_dpk_), optional, intent(in) :: pad
Integer,Intent(in), optional :: lb1,lb2
! ...Local Variables
complex(kind(1.d0)),allocatable :: tmp(:,:)
complex(psb_dpk_),allocatable :: tmp(:,:)
Integer :: dim,err_act,err,dim2,lb1_, lb2_, ub1_, ub2_,&
& lbi1, lbi2
character(len=20) :: name
@@ -1310,12 +1310,12 @@ Contains
if (len1 < 0) then
err=4025
call psb_errpush(err,name,i_err=(/len1,0,0,0,0/),a_err='complex(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len1,0,0,0,0/),a_err='complex(psb_dpk_)')
goto 9999
end if
if (len2 < 0) then
err=4025
call psb_errpush(err,name,i_err=(/len2,0,0,0,0/),a_err='complex(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len2,0,0,0,0/),a_err='complex(psb_dpk_)')
goto 9999
end if
@@ -1330,7 +1330,7 @@ Contains
Allocate(tmp(lb1_:ub1_,lb2_:ub2_),stat=info)
if (info /= 0) then
err=4025
call psb_errpush(err,name,i_err=(/len1*len2,0,0,0,0/),a_err='complex(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len1*len2,0,0,0,0/),a_err='complex(psb_dpk_)')
goto 9999
end if
tmp(lb1_:lb1_-1+min(len1,dim),lb2_:lb2_-1+min(len2,dim2)) = &
@@ -1343,7 +1343,7 @@ Contains
Allocate(rrax(lb1_:ub1_,lb2_:ub2_),stat=info)
if (info /= 0) then
err=4025
call psb_errpush(err,name,i_err=(/len1*len2,0,0,0,0/),a_err='complex(kind(1.d0))')
call psb_errpush(err,name,i_err=(/len1*len2,0,0,0,0/),a_err='complex(psb_dpk_)')
goto 9999
end if
endif
@@ -1513,7 +1513,7 @@ Contains
! ...Subroutine Arguments
Integer,Intent(in) :: len
Integer,allocatable, intent(inout) :: rrax(:),y(:)
Real(Kind(1.d0)),allocatable, intent(inout) :: z(:)
Real(psb_dpk_),allocatable, intent(inout) :: z(:)
integer :: info
character(len=20) :: name
integer :: err_act, err
@@ -1562,7 +1562,7 @@ Contains
! ...Subroutine Arguments
Integer,Intent(in) :: len
Integer,allocatable, intent(inout) :: rrax(:),y(:)
complex(Kind(1.d0)),allocatable, intent(inout) :: z(:)
complex(psb_dpk_),allocatable, intent(inout) :: z(:)
integer :: info
character(len=20) :: name
integer :: err_act, err
@@ -1606,7 +1606,7 @@ Contains
Subroutine psb_dtransfer1d(vin,vout,info)
use psb_error_mod
real(kind(1.d0)), allocatable, intent(inout) :: vin(:),vout(:)
real(psb_dpk_), allocatable, intent(inout) :: vin(:),vout(:)
integer, intent(out) :: info
!
!
@@ -1646,7 +1646,7 @@ Contains
Subroutine psb_dtransfer2d(vin,vout,info)
use psb_error_mod
real(kind(1.d0)), allocatable, intent(inout) :: vin(:,:),vout(:,:)
real(psb_dpk_), allocatable, intent(inout) :: vin(:,:),vout(:,:)
integer, intent(out) :: info
!
!
@@ -1685,7 +1685,7 @@ Contains
Subroutine psb_ztransfer1d(vin,vout,info)
use psb_error_mod
complex(kind(1.d0)), allocatable, intent(inout) :: vin(:),vout(:)
complex(psb_dpk_), allocatable, intent(inout) :: vin(:),vout(:)
integer, intent(out) :: info
!
!
@@ -1721,7 +1721,7 @@ Contains
Subroutine psb_ztransfer2d(vin,vout,info)
use psb_error_mod
complex(kind(1.d0)), allocatable, intent(inout) :: vin(:,:),vout(:,:)
complex(psb_dpk_), allocatable, intent(inout) :: vin(:,:),vout(:,:)
integer, intent(out) :: info
!
!
base/modules/psb_serial_mod.f90
+33 -28
View File
@@ -30,6 +30,7 @@
!!$
!!$
module psb_serial_mod
use psb_const_mod
use psb_spmat_type
use psb_string_mod
use psb_sort_mod
@@ -62,14 +63,14 @@ module psb_serial_mod
subroutine psb_dcsrws(rw,a,info,trans)
use psb_spmat_type
type(psb_dspmat_type) :: a
real(kind(1.d0)), allocatable :: rw(:)
real(psb_dpk_), allocatable :: rw(:)
integer :: info
character, optional :: trans
end subroutine psb_dcsrws
subroutine psb_zcsrws(rw,a,info,trans)
use psb_spmat_type
type(psb_zspmat_type) :: a
complex(kind(1.d0)), allocatable :: rw(:)
complex(psb_dpk_), allocatable :: rw(:)
integer :: info
character, optional :: trans
end subroutine psb_zcsrws
@@ -81,34 +82,34 @@ module psb_serial_mod
subroutine psb_dcssm(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_spmat_type
type(psb_dspmat_type) :: t
real(kind(1.d0)) :: alpha, beta, b(:,:), c(:,:)
real(psb_dpk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans, unitd
real(kind(1.d0)), optional, target :: d(:)
real(psb_dpk_), optional, target :: d(:)
end subroutine psb_dcssm
subroutine psb_dcssv(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_spmat_type
type(psb_dspmat_type) :: t
real(kind(1.d0)) :: alpha, beta, b(:), c(:)
real(psb_dpk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans, unitd
real(kind(1.d0)), optional, target :: d(:)
real(psb_dpk_), optional, target :: d(:)
end subroutine psb_dcssv
subroutine psb_zcssm(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_spmat_type
type(psb_zspmat_type) :: t
complex(kind(1.d0)) :: alpha, beta, b(:,:), c(:,:)
complex(psb_dpk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans, unitd
complex(kind(1.d0)), optional, target :: d(:)
complex(psb_dpk_), optional, target :: d(:)
end subroutine psb_zcssm
subroutine psb_zcssv(alpha,t,b,beta,c,info,trans,unitd,d)
use psb_spmat_type
type(psb_zspmat_type) :: t
complex(kind(1.d0)) :: alpha, beta, b(:), c(:)
complex(psb_dpk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans, unitd
complex(kind(1.d0)), optional, target :: d(:)
complex(psb_dpk_), optional, target :: d(:)
end subroutine psb_zcssv
end interface
@@ -116,28 +117,28 @@ module psb_serial_mod
subroutine psb_dcsmv(alpha,a,b,beta,c,info,trans)
use psb_spmat_type
type(psb_dspmat_type) :: a
real(kind(1.d0)) :: alpha, beta, b(:), c(:)
real(psb_dpk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans
end subroutine psb_dcsmv
subroutine psb_dcsmm(alpha,a,b,beta,c,info,trans)
use psb_spmat_type
type(psb_dspmat_type) :: a
real(kind(1.d0)) :: alpha, beta, b(:,:), c(:,:)
real(psb_dpk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans
end subroutine psb_dcsmm
subroutine psb_zcsmv(alpha,a,b,beta,c,info,trans)
use psb_spmat_type
type(psb_zspmat_type) :: a
complex(kind(1.d0)) :: alpha, beta, b(:), c(:)
complex(psb_dpk_) :: alpha, beta, b(:), c(:)
integer :: info
character, optional :: trans
end subroutine psb_zcsmv
subroutine psb_zcsmm(alpha,a,b,beta,c,info,trans)
use psb_spmat_type
type(psb_zspmat_type) :: a
complex(kind(1.d0)) :: alpha, beta, b(:,:), c(:,:)
complex(psb_dpk_) :: alpha, beta, b(:,:), c(:,:)
integer :: info
character, optional :: trans
end subroutine psb_zcsmm
@@ -291,7 +292,7 @@ module psb_serial_mod
use psb_spmat_type
integer, intent(in) :: nz, imin,imax,jmin,jmax
integer, intent(in) :: ia(:),ja(:)
real(kind(1.d0)), intent(in) :: val(:)
real(psb_dpk_), intent(in) :: val(:)
type(psb_dspmat_type), intent(inout) :: a
integer, intent(out) :: info
integer, intent(in), optional :: gtl(:)
@@ -301,7 +302,7 @@ module psb_serial_mod
use psb_spmat_type
integer, intent(in) :: nz, imin,imax,jmin,jmax
integer, intent(in) :: ia(:),ja(:)
complex(kind(1.d0)), intent(in) :: val(:)
complex(psb_dpk_), intent(in) :: val(:)
type(psb_zspmat_type), intent(inout) :: a
integer, intent(out) :: info
integer, intent(in), optional :: gtl(:)
@@ -378,13 +379,13 @@ module psb_serial_mod
end interface
interface psb_csnmi
real(kind(1.d0)) function psb_dcsnmi(a,info,trans)
real(psb_dpk_) function psb_dcsnmi(a,info,trans)
use psb_spmat_type
type(psb_dspmat_type), intent(in) :: a
integer, intent(out) :: info
character, optional :: trans
end function psb_dcsnmi
real(kind(1.d0)) function psb_zcsnmi(a,info,trans)
real(psb_dpk_) function psb_zcsnmi(a,info,trans)
use psb_spmat_type
type(psb_zspmat_type), intent(in) :: a
integer, intent(out) :: info
@@ -417,13 +418,13 @@ module psb_serial_mod
subroutine psb_dspgtdiag(a,d,info)
use psb_spmat_type
type(psb_dspmat_type), intent(in) :: a
real(kind(1.d0)), intent(inout) :: d(:)
real(psb_dpk_), intent(inout) :: d(:)
integer, intent(out) :: info
end subroutine psb_dspgtdiag
subroutine psb_zspgtdiag(a,d,info)
use psb_spmat_type
type(psb_zspmat_type), intent(in) :: a
complex(kind(1.d0)), intent(inout) :: d(:)
complex(psb_dpk_), intent(inout) :: d(:)
integer, intent(out) :: info
end subroutine psb_zspgtdiag
end interface
@@ -432,13 +433,13 @@ module psb_serial_mod
subroutine psb_dspscal(a,d,info)
use psb_spmat_type
type(psb_dspmat_type), intent(inout) :: a
real(kind(1.d0)), intent(in) :: d(:)
real(psb_dpk_), intent(in) :: d(:)
integer, intent(out) :: info
end subroutine psb_dspscal
subroutine psb_zspscal(a,d,info)
use psb_spmat_type
type(psb_zspmat_type), intent(inout) :: a
complex(kind(1.d0)), intent(in) :: d(:)
complex(psb_dpk_), intent(in) :: d(:)
integer, intent(out) :: info
end subroutine psb_zspscal
end interface
@@ -478,7 +479,7 @@ module psb_serial_mod
integer, intent(in) :: irw
integer, intent(out) :: nz
integer, allocatable, intent(inout) :: ia(:), ja(:)
real(kind(1.d0)), allocatable, intent(inout) :: val(:)
real(psb_dpk_), allocatable, intent(inout) :: val(:)
integer,intent(out) :: info
logical, intent(in), optional :: append
integer, intent(in), optional :: iren(:)
@@ -493,7 +494,7 @@ module psb_serial_mod
integer, intent(in) :: irw
integer, intent(out) :: nz
integer, allocatable, intent(inout) :: ia(:), ja(:)
complex(kind(1.d0)), allocatable, intent(inout) :: val(:)
complex(psb_dpk_), allocatable, intent(inout) :: val(:)
integer,intent(out) :: info
logical, intent(in), optional :: append
integer, intent(in), optional :: iren(:)
@@ -522,28 +523,32 @@ module psb_serial_mod
interface psb_gelp
! 2-D version
subroutine psb_dgelp(trans,iperm,x,info)
real(kind(1.d0)), intent(inout) :: x(:,:)
use psb_const_mod
real(psb_dpk_), intent(inout) :: x(:,:)
integer, intent(in) :: iperm(:)
integer, intent(out) :: info
character, intent(in) :: trans
end subroutine psb_dgelp
! 1-D version
subroutine psb_dgelpv(trans,iperm,x,info)
real(kind(1.d0)), intent(inout) :: x(:)
use psb_const_mod
real(psb_dpk_), intent(inout) :: x(:)
integer, intent(in) :: iperm(:)
integer, intent(out) :: info
character, intent(in) :: trans
end subroutine psb_dgelpv
! 2-D version
subroutine psb_zgelp(trans,iperm,x,info)
complex(kind(1.d0)), intent(inout) :: x(:,:)
use psb_const_mod
complex(psb_dpk_), intent(inout) :: x(:,:)
integer, intent(in) :: iperm(:)
integer, intent(out) :: info
character, intent(in) :: trans
end subroutine psb_zgelp
! 1-D version
subroutine psb_zgelpv(trans,iperm,x,info)
complex(kind(1.d0)), intent(inout) :: x(:)
use psb_const_mod
complex(psb_dpk_), intent(inout) :: x(:)
integer, intent(in) :: iperm(:)
integer, intent(out) :: info
character, intent(in) :: trans
base/modules/psb_sort_mod.f90
+39 -39
View File
@@ -42,7 +42,7 @@
! Addison-Wesley
!
module psb_sort_mod
use psb_const_mod
!
! The up/down constant are defined in pairs having
@@ -66,12 +66,12 @@ module psb_sort_mod
end type psb_int_idx_heap
type psb_double_idx_heap
integer :: last, dir
real(kind(1.d0)), allocatable :: keys(:)
real(psb_dpk_), allocatable :: keys(:)
integer, allocatable :: idxs(:)
end type psb_double_idx_heap
type psb_dcomplex_idx_heap
integer :: last, dir
complex(kind(1.d0)), allocatable :: keys(:)
complex(psb_dpk_), allocatable :: keys(:)
integer, allocatable :: idxs(:)
end type psb_dcomplex_idx_heap
@@ -182,7 +182,7 @@ contains
subroutine dmsort(x,ix,dir,flag)
use psb_error_mod
implicit none
real(kind(1.d0)), intent(inout) :: x(:)
real(psb_dpk_), intent(inout) :: x(:)
integer, optional, intent(in) :: dir, flag
integer, optional, intent(inout) :: ix(:)
@@ -241,7 +241,7 @@ contains
subroutine zamsort(x,ix,dir,flag)
use psb_error_mod
implicit none
complex(kind(1.d0)), intent(inout) :: x(:)
complex(psb_dpk_), intent(inout) :: x(:)
integer, optional, intent(in) :: dir, flag
integer, optional, intent(inout) :: ix(:)
@@ -417,7 +417,7 @@ contains
subroutine dqsort(x,ix,dir,flag)
use psb_error_mod
implicit none
real(kind(1.d0)), intent(inout) :: x(:)
real(psb_dpk_), intent(inout) :: x(:)
integer, optional, intent(in) :: dir, flag
integer, optional, intent(inout) :: ix(:)
@@ -493,7 +493,7 @@ contains
subroutine zqsort(x,ix,dir,flag)
use psb_error_mod
implicit none
complex(kind(1.d0)), intent(inout) :: x(:)
complex(psb_dpk_), intent(inout) :: x(:)
integer, optional, intent(in) :: dir, flag
integer, optional, intent(inout) :: ix(:)
@@ -692,12 +692,12 @@ contains
subroutine dhsort(x,ix,dir,flag)
use psb_error_mod
implicit none
real(kind(1.d0)), intent(inout) :: x(:)
real(psb_dpk_), intent(inout) :: x(:)
integer, optional, intent(in) :: dir, flag
integer, optional, intent(inout) :: ix(:)
integer :: dir_, flag_, n, i, l, err_act,info
real(kind(1.d0)) :: key
real(psb_dpk_) :: key
integer :: index
character(len=20) :: name
@@ -800,12 +800,12 @@ contains
subroutine zhsort(x,ix,dir,flag)
use psb_error_mod
implicit none
complex(kind(1.d0)), intent(inout) :: x(:)
complex(psb_dpk_), intent(inout) :: x(:)
integer, optional, intent(in) :: dir, flag
integer, optional, intent(inout) :: ix(:)
integer :: dir_, flag_, n, i, l, err_act,info
complex(kind(1.d0)) :: key
complex(psb_dpk_) :: key
integer :: index
character(len=20) :: name
@@ -1074,7 +1074,7 @@ contains
use psb_realloc_mod
implicit none
real(kind(1.d0)), intent(in) :: key
real(psb_dpk_), intent(in) :: key
integer, intent(in) :: index
type(psb_double_idx_heap), intent(inout) :: heap
integer, intent(out) :: info
@@ -1106,7 +1106,7 @@ contains
type(psb_double_idx_heap), intent(inout) :: heap
integer, intent(out) :: index,info
real(kind(1.d0)), intent(out) :: key
real(psb_dpk_), intent(out) :: key
info = 0
@@ -1295,7 +1295,7 @@ contains
use psb_realloc_mod
implicit none
complex(kind(1.d0)), intent(in) :: key
complex(psb_dpk_), intent(in) :: key
integer, intent(in) :: index
type(psb_dcomplex_idx_heap), intent(inout) :: heap
integer, intent(out) :: info
@@ -1326,7 +1326,7 @@ contains
type(psb_dcomplex_idx_heap), intent(inout) :: heap
integer, intent(out) :: index,info
complex(kind(1.d0)), intent(out) :: key
complex(psb_dpk_), intent(out) :: key
info = 0
@@ -1582,13 +1582,13 @@ contains
! heap: the heap
! dir: sorting direction
real(kind(1.d0)), intent(in) :: key
real(psb_dpk_), intent(in) :: key
integer, intent(in) :: dir
real(kind(1.d0)), intent(inout) :: heap(:)
real(psb_dpk_), intent(inout) :: heap(:)
integer, intent(inout) :: last
integer, intent(out) :: info
integer :: i, i2
real(kind(1.d0)) :: temp
real(psb_dpk_) :: temp
info = 0
if (last < 0) then
@@ -1680,14 +1680,14 @@ contains
subroutine psi_double_heap_get_first(key,last,heap,dir,info)
implicit none
real(kind(1.d0)), intent(inout) :: key
real(psb_dpk_), intent(inout) :: key
integer, intent(inout) :: last
integer, intent(in) :: dir
real(kind(1.d0)), intent(inout) :: heap(:)
real(psb_dpk_), intent(inout) :: heap(:)
integer, intent(out) :: info
integer :: i, j
real(kind(1.d0)) :: temp
real(psb_dpk_) :: temp
info = 0
@@ -1812,13 +1812,13 @@ contains
! heap: the heap
! dir: sorting direction
complex(kind(1.d0)), intent(in) :: key
complex(psb_dpk_), intent(in) :: key
integer, intent(in) :: dir
complex(kind(1.d0)), intent(inout) :: heap(:)
complex(psb_dpk_), intent(inout) :: heap(:)
integer, intent(inout) :: last
integer, intent(out) :: info
integer :: i, i2
complex(kind(1.d0)) :: temp
complex(psb_dpk_) :: temp
info = 0
if (last < 0) then
@@ -1910,14 +1910,14 @@ contains
subroutine psi_dcomplex_heap_get_first(key,last,heap,dir,info)
implicit none
complex(kind(1.d0)), intent(inout) :: key
complex(psb_dpk_), intent(inout) :: key
integer, intent(inout) :: last
integer, intent(in) :: dir
complex(kind(1.d0)), intent(inout) :: heap(:)
complex(psb_dpk_), intent(inout) :: heap(:)
integer, intent(out) :: info
integer :: i, j
complex(kind(1.d0)) :: temp
complex(psb_dpk_) :: temp
info = 0
@@ -2301,13 +2301,13 @@ contains
! idxs: the indices
! dir: sorting direction
real(kind(1.d0)), intent(in) :: key
real(psb_dpk_), intent(in) :: key
integer, intent(in) :: index,dir
real(kind(1.d0)), intent(inout) :: heap(:)
real(psb_dpk_), intent(inout) :: heap(:)
integer, intent(inout) :: idxs(:),last
integer, intent(out) :: info
integer :: i, i2, itemp
real(kind(1.d0)) :: temp
real(psb_dpk_) :: temp
info = 0
if (last < 0) then
@@ -2413,14 +2413,14 @@ contains
subroutine psi_double_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
implicit none
real(kind(1.d0)), intent(inout) :: heap(:)
real(psb_dpk_), intent(inout) :: heap(:)
integer, intent(out) :: index,info
integer, intent(inout) :: last,idxs(:)
integer, intent(in) :: dir
real(kind(1.d0)), intent(out) :: key
real(psb_dpk_), intent(out) :: key
integer :: i, j,itemp
real(kind(1.d0)) :: temp
real(psb_dpk_) :: temp
info = 0
if (last <= 0) then
@@ -2559,13 +2559,13 @@ contains
! idxs: the indices
! dir: sorting direction
complex(kind(1.d0)), intent(in) :: key
complex(psb_dpk_), intent(in) :: key
integer, intent(in) :: index,dir
complex(kind(1.d0)), intent(inout) :: heap(:)
complex(psb_dpk_), intent(inout) :: heap(:)
integer, intent(inout) :: idxs(:),last
integer, intent(out) :: info
integer :: i, i2, itemp
complex(kind(1.d0)) :: temp
complex(psb_dpk_) :: temp
info = 0
if (last < 0) then
@@ -2671,14 +2671,14 @@ contains
subroutine psi_dcomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
implicit none
complex(kind(1.d0)), intent(inout) :: heap(:)
complex(psb_dpk_), intent(inout) :: heap(:)
integer, intent(out) :: index,info
integer, intent(inout) :: last,idxs(:)
integer, intent(in) :: dir
complex(kind(1.d0)), intent(out) :: key
complex(psb_dpk_), intent(out) :: key
integer :: i, j, itemp
complex(kind(1.d0)) :: temp
complex(psb_dpk_) :: temp
info = 0
if (last <= 0) then
base/modules/psb_spmat_type.f90
+16 -16
View File
@@ -61,7 +61,7 @@ module psb_spmat_type
!| character(len=5) :: fida ! Storage format: CSR,COO etc.
!| character(len=11) :: descra ! Matrix type: encodes general, triang.
!| integer :: infoa(psb_ifasize_) ! Additional integer info
!| real(kind(1.d0)), allocatable :: aspk(:) ! Coefficients
!| real(psb_dpk_), allocatable :: aspk(:) ! Coefficients
!| integer, allocatable :: ia1(:), ia2(:) ! Row/column indices encoded
!| integer, allocatable :: pl(:), pr(:) ! Row/column permutation
!| end type psb_dspmat_type
@@ -70,7 +70,7 @@ module psb_spmat_type
!| character(len=5) :: fida
!| character(len=11) :: descra
!| integer :: infoa(psb_ifasize_)
!| complex(kind(1.d0)), allocatable :: aspk(:)
!| complex(psb_dpk_), allocatable :: aspk(:)
!| integer, allocatable :: ia1(:), ia2(:)
!| integer, allocatable :: pl(:), pr(:)
!| end type psb_zspmat_type
@@ -126,7 +126,7 @@ module psb_spmat_type
character(len=5) :: fida
character(len=11) :: descra
integer :: infoa(psb_ifasize_)
real(kind(1.d0)), allocatable :: aspk(:)
real(psb_dpk_), allocatable :: aspk(:)
integer, allocatable :: ia1(:), ia2(:)
integer, allocatable :: pl(:), pr(:)
end type psb_dspmat_type
@@ -135,7 +135,7 @@ module psb_spmat_type
character(len=5) :: fida
character(len=11) :: descra
integer :: infoa(psb_ifasize_)
complex(kind(1.d0)), allocatable :: aspk(:)
complex(psb_dpk_), allocatable :: aspk(:)
integer, allocatable :: ia1(:), ia2(:)
integer, allocatable :: pl(:), pr(:)
end type psb_zspmat_type
@@ -809,23 +809,23 @@ contains
!locals
integer :: val
val = 4*size(a%infoa)
val = psb_sizeof_int*size(a%infoa)
if (allocated(a%aspk)) then
val = val + 8 * size(a%aspk)
val = val + psb_sizeof_dp * size(a%aspk)
endif
if (allocated(a%ia1)) then
val = val + 4 * size(a%ia1)
val = val + psb_sizeof_int * size(a%ia1)
endif
if (allocated(a%ia2)) then
val = val + 4 * size(a%ia2)
val = val + psb_sizeof_int * size(a%ia2)
endif
if (allocated(a%pl)) then
val = val + 4 * size(a%pl)
val = val + psb_sizeof_int * size(a%pl)
endif
if (allocated(a%pr)) then
val = val + 4 * size(a%pr)
val = val + psb_sizeof_int * size(a%pr)
endif
@@ -1296,23 +1296,23 @@ contains
!locals
integer :: val
val = 4*size(a%infoa)
val = psb_sizeof_int*size(a%infoa)
if (allocated(a%aspk)) then
val = val + 16 * size(a%aspk)
val = val + 2 * psb_sizeof_dp * size(a%aspk)
endif
if (allocated(a%ia1)) then
val = val + 4 * size(a%ia1)
val = val + psb_sizeof_int * size(a%ia1)
endif
if (allocated(a%ia2)) then
val = val + 4 * size(a%ia2)
val = val + psb_sizeof_int * size(a%ia2)
endif
if (allocated(a%pl)) then
val = val + 4 * size(a%pl)
val = val + psb_sizeof_int * size(a%pl)
endif
if (allocated(a%pr)) then
val = val + 4 * size(a%pr)
val = val + psb_sizeof_int * size(a%pr)
endif
base/modules/psb_spsb_mod.f90
+73 -61
View File
@@ -32,143 +32,155 @@
module psb_spsb_mod
interface
real(kind(1.d0)) function ddot(n,dx,incx,dy,incy)
real(kind(1.d0)) :: dx(*),dy(*),dtemp
real(psb_dpk_) function ddot(n,dx,incx,dy,incy)
use psb_const_mod
real(psb_dpk_) :: dx(*),dy(*),dtemp
integer :: i,incx,incy,ix,iy,m,mp1,n
end function ddot
end interface
end interface
interface
subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info)
real(kind(1.d0)) :: X(lldx,*), Y(lldy,*)
real(kind(1.d0)) :: alpha, beta
subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info)
use psb_const_mod
real(psb_dpk_) :: X(lldx,*), Y(lldy,*)
real(psb_dpk_) :: alpha, beta
integer :: n, m, lldx, lldy, info
end subroutine daxpby
end interface
end interface
interface
subroutine dcsmm(trans,m,n,k,alpha,pl,fida,descra,a,ia1,ia2,&
& infoa,pr,b,ldb,beta,c,ldc,work,lwork,ierror)
interface
subroutine dcsmm(trans,m,n,k,alpha,pl,fida,descra,a,ia1,ia2,&
& infoa,pr,b,ldb,beta,c,ldc,work,lwork,ierror)
use psb_const_mod
integer :: m,n,k,ldb,ldc,lwork, ierror
character :: trans
real(kind(1.d0)) :: alpha,beta
real(psb_dpk_) :: alpha,beta
integer :: ia1(*),ia2(*),infoa(*),pl(*),pr(*)
character :: descra*11, fida*5
real(kind(1.d0)) :: a(*),b(ldb,*),c(ldc,*),work(*)
real(psb_dpk_) :: a(*),b(ldb,*),c(ldc,*),work(*)
end subroutine dcsmm
end interface
end interface
interface
real(kind(1.d0)) function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
interface
real(psb_dpk_) function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
& infoa,ierror)
use psb_const_mod
integer :: m,n, ierror
character :: trans
integer :: ia1(*),ia2(*),infoa(*)
character :: descra*11, fida*5
real(kind(1.d0)) :: a(*)
real(psb_dpk_) :: a(*)
end function dcsnmi
end interface
end interface
interface
subroutine dcsrp(trans,m,n,fida,descra,ia1,ia2,infoa,&
& p,work,lwork,ierror)
interface
subroutine dcsrp(trans,m,n,fida,descra,ia1,ia2,infoa,&
& p,work,lwork,ierror)
use psb_const_mod
implicit none
integer :: lwork, m, n, ierror
character :: trans
real(kind(1.d0)) :: work(lwork)
real(psb_dpk_) :: work(lwork)
integer :: ia1(*), ia2(*), infoa(*), p(*), int_val(5)
character :: descra*11, fida*5
end subroutine dcsrp
end interface
end interface
interface
subroutine dcssm(trans,m,n,alpha,unitd,d,&
& pl,fidt,descrt,t,it1,it2,infot,pr,&
& b,ldb,beta,c,ldc,work,lwork,ierror)
real(kind(1.d0)) :: alpha, beta
interface
subroutine dcssm(trans,m,n,alpha,unitd,d,&
& pl,fidt,descrt,t,it1,it2,infot,pr,&
& b,ldb,beta,c,ldc,work,lwork,ierror)
use psb_const_mod
real(psb_dpk_) :: alpha, beta
integer :: n, ldb, ldc, m, lwork, ierror
character :: unitd, trans
real(kind(1.d0)) :: t(*), b(ldb,*), c(ldc,*), d(*), work(*)
real(psb_dpk_) :: t(*), b(ldb,*), c(ldc,*), d(*), work(*)
integer :: it1(*), it2(*), infot(*), pl(*), pr(*)
character :: descrt*11, fidt*5
end subroutine dcssm
end interface
end interface
interface
interface
subroutine dcsupd(m, n, fida, descra, a, ia1,&
& ia2, infoa, ia, ja, fidh, descrh, h, ih1, ih2,&
& infoh, ih, jh, flag, glob_to_loc,&
& iwork, liwork, ierror)
use psb_const_mod
integer :: ia, ja, ih, jh, m, n,&
& ierror, flag, liwork
integer :: ia1(*),ia2(*),ih1(*),ih2(*),&
& infoa(*),infoh(*),iwork(*),&
& glob_to_loc(*)
character :: descra*11,descrh*11, fida*5, fidh*5
real(kind(1.d0)) :: a(*),h(*)
real(psb_dpk_) :: a(*),h(*)
end subroutine dcsupd
end interface
interface
end interface
interface
subroutine dgelp(trans,m,n,p,b,ldb,work,lwork,ierror)
use psb_const_mod
integer :: ldb, m, n, lwork, ierror
character :: trans
real(kind(1.d0)) :: b(ldb,*), work(*)
real(psb_dpk_) :: b(ldb,*), work(*)
integer :: p(*)
end subroutine dgelp
end interface
interface
end interface
interface
subroutine dlpupd(m,n,perm,b,ldb,beta,c,ldc)
use psb_const_mod
integer :: m, n, ldb, ldc
real(kind(1.d0)) :: beta
real(psb_dpk_) :: beta
integer :: perm(*)
real(kind(1.d0)) :: b(ldb,*), c(ldc,*)
real(psb_dpk_) :: b(ldb,*), c(ldc,*)
end subroutine dlpupd
end interface
interface
subroutine dswmm(trans,m,n,k,alpha,fida,descra,a,ia1,ia2,&
& infoa,b,ldb,beta,c,ldc,work,lwork,ierror)
end interface
interface
subroutine dswmm(trans,m,n,k,alpha,fida,descra,a,ia1,ia2,&
& infoa,b,ldb,beta,c,ldc,work,lwork,ierror)
use psb_const_mod
integer :: m,n,k,ldb,ldc,lwork,ierror
character :: trans
real(kind(1.d0)) :: alpha,beta
real(psb_dpk_) :: alpha,beta
integer :: ia1(*),ia2(*),infoa(*), int_val(5)
character :: descra*11, fida*5
real(kind(1.d0)) :: a(*),b(ldb,*),c(ldc,*),work(*)
real(psb_dpk_) :: a(*),b(ldb,*),c(ldc,*),work(*)
end subroutine dswmm
end interface
end interface
interface
interface
subroutine dswprt(m,n,fida,descra,a,ia1,ia2,infoa,title,&
& iout,ierror)
use psb_const_mod
integer :: m,n,iout,ierror
integer :: ia1(*),ia2(*),infoa(*)
character :: descra*11, fida*5, title*(*)
end subroutine dswprt
end interface
interface
subroutine dswsm(trans,m,n,alpha,unitd,d,fidt,descrt,t,it1,it2,&
& infot,b,ldb,beta,c,ldc,work,lwork,ierror)
end interface
interface
subroutine dswsm(trans,m,n,alpha,unitd,d,fidt,descrt,t,it1,it2,&
& infot,b,ldb,beta,c,ldc,work,lwork,ierror)
use psb_const_mod
integer :: m, n, ldb, ldc, lwork, ierror
character :: unitd, trans
real(kind(1.d0)) :: alpha, beta
real(psb_dpk_) :: alpha, beta
integer :: it1(*), it2(*), infot(*)
character :: descrt*11, fidt*5
real(kind(1.d0)) :: t(*), b(ldb,*), c(ldc,*), d(*), work(*)
real(psb_dpk_) :: t(*), b(ldb,*), c(ldc,*), d(*), work(*)
end subroutine dswsm
end interface
end interface
interface
subroutine symbmm (n, m, l, ia, ja, diaga, ib,&
& jb, diagb, ic, jc, diagc, index)
interface
subroutine symbmm (n, m, l, ia, ja, diaga, ib,&
& jb, diagb, ic, jc, diagc, index)
integer :: ia(*), ja(*), diaga, ib(*),&
& jb(*), diagb, diagc, index(*)
integer, pointer :: ic(:),jc(:)
integer :: nze, info
end subroutine symbmm
end interface
end interface
end module psb_spsb_mod
base/modules/psb_tools_mod.f90
+22 -22
View File
@@ -38,7 +38,7 @@ Module psb_tools_mod
subroutine psb_dalloc(x, desc_a, info, n, lb)
use psb_descriptor_type
implicit none
real(kind(1.d0)), allocatable, intent(out) :: x(:,:)
real(psb_dpk_), allocatable, intent(out) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer,intent(out) :: info
integer, optional, intent(in) :: n, lb
@@ -46,7 +46,7 @@ Module psb_tools_mod
! 1-D double precision version
subroutine psb_dallocv(x, desc_a,info,n)
use psb_descriptor_type
real(kind(1.d0)), allocatable, intent(out) :: x(:)
real(psb_dpk_), allocatable, intent(out) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer,intent(out) :: info
integer, optional, intent(in) :: n
@@ -70,7 +70,7 @@ Module psb_tools_mod
subroutine psb_zalloc(x, desc_a, info, n, lb)
use psb_descriptor_type
implicit none
complex(kind(1.d0)), allocatable, intent(out) :: x(:,:)
complex(psb_dpk_), allocatable, intent(out) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer :: info
integer, optional, intent(in) :: n, lb
@@ -78,7 +78,7 @@ Module psb_tools_mod
! 1-D double complex version
subroutine psb_zallocv(x, desc_a,info,n)
use psb_descriptor_type
complex(kind(1.d0)), allocatable, intent(out) :: x(:)
complex(psb_dpk_), allocatable, intent(out) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer :: info
integer, optional, intent(in) :: n
@@ -91,14 +91,14 @@ Module psb_tools_mod
subroutine psb_dasb(x, desc_a, info)
use psb_descriptor_type
type(psb_desc_type), intent(in) :: desc_a
real(kind(1.d0)), allocatable, intent(inout) :: x(:,:)
real(psb_dpk_), allocatable, intent(inout) :: x(:,:)
integer, intent(out) :: info
end subroutine psb_dasb
! 1-D double precision version
subroutine psb_dasbv(x, desc_a, info)
use psb_descriptor_type
type(psb_desc_type), intent(in) :: desc_a
real(kind(1.d0)), allocatable, intent(inout) :: x(:)
real(psb_dpk_), allocatable, intent(inout) :: x(:)
integer, intent(out) :: info
end subroutine psb_dasbv
! 2-D integer version
@@ -119,14 +119,14 @@ Module psb_tools_mod
subroutine psb_zasb(x, desc_a, info)
use psb_descriptor_type
type(psb_desc_type), intent(in) :: desc_a
complex(kind(1.d0)), allocatable, intent(inout) :: x(:,:)
complex(psb_dpk_), allocatable, intent(inout) :: x(:,:)
integer, intent(out) :: info
end subroutine psb_zasb
! 1-D double precision version
subroutine psb_zasbv(x, desc_a, info)
use psb_descriptor_type
type(psb_desc_type), intent(in) :: desc_a
complex(kind(1.d0)), allocatable, intent(inout) :: x(:)
complex(psb_dpk_), allocatable, intent(inout) :: x(:)
integer, intent(out) :: info
end subroutine psb_zasbv
end interface
@@ -175,14 +175,14 @@ Module psb_tools_mod
! 2-D double precision version
subroutine psb_dfree(x, desc_a, info)
use psb_descriptor_type
real(kind(1.d0)),allocatable, intent(inout) :: x(:,:)
real(psb_dpk_),allocatable, intent(inout) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer :: info
end subroutine psb_dfree
! 1-D double precision version
subroutine psb_dfreev(x, desc_a, info)
use psb_descriptor_type
real(kind(1.d0)),allocatable, intent(inout) :: x(:)
real(psb_dpk_),allocatable, intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer :: info
end subroutine psb_dfreev
@@ -203,14 +203,14 @@ Module psb_tools_mod
! 2-D double precision version
subroutine psb_zfree(x, desc_a, info)
use psb_descriptor_type
complex(kind(1.d0)),allocatable, intent(inout) :: x(:,:)
complex(psb_dpk_),allocatable, intent(inout) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer :: info
end subroutine psb_zfree
! 1-D double precision version
subroutine psb_zfreev(x, desc_a, info)
use psb_descriptor_type
complex(kind(1.d0)),allocatable, intent(inout) :: x(:)
complex(psb_dpk_),allocatable, intent(inout) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer :: info
end subroutine psb_zfreev
@@ -223,9 +223,9 @@ Module psb_tools_mod
use psb_descriptor_type
integer, intent(in) :: m
type(psb_desc_type), intent(in) :: desc_a
real(kind(1.d0)),intent(inout) :: x(:,:)
real(psb_dpk_),intent(inout) :: x(:,:)
integer, intent(in) :: irw(:)
real(kind(1.d0)), intent(in) :: val(:,:)
real(psb_dpk_), intent(in) :: val(:,:)
integer, intent(out) :: info
integer, optional, intent(in) :: dupl
end subroutine psb_dinsi
@@ -234,9 +234,9 @@ Module psb_tools_mod
use psb_descriptor_type
integer, intent(in) :: m
type(psb_desc_type), intent(in) :: desc_a
real(kind(1.d0)),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: x(:)
integer, intent(in) :: irw(:)
real(kind(1.d0)), intent(in) :: val(:)
real(psb_dpk_), intent(in) :: val(:)
integer, intent(out) :: info
integer, optional, intent(in) :: dupl
end subroutine psb_dinsvi
@@ -267,9 +267,9 @@ Module psb_tools_mod
use psb_descriptor_type
integer, intent(in) :: m
type(psb_desc_type), intent(in) :: desc_a
complex(kind(1.d0)),intent(inout) :: x(:,:)
complex(psb_dpk_),intent(inout) :: x(:,:)
integer, intent(in) :: irw(:)
complex(kind(1.d0)), intent(in) :: val(:,:)
complex(psb_dpk_), intent(in) :: val(:,:)
integer, intent(out) :: info
integer, optional, intent(in) :: dupl
end subroutine psb_zinsi
@@ -278,9 +278,9 @@ Module psb_tools_mod
use psb_descriptor_type
integer, intent(in) :: m
type(psb_desc_type), intent(in) :: desc_a
complex(kind(1.d0)),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: x(:)
integer, intent(in) :: irw(:)
complex(kind(1.d0)), intent(in) :: val(:)
complex(psb_dpk_), intent(in) :: val(:)
integer, intent(out) :: info
integer, optional, intent(in) :: dupl
end subroutine psb_zinsvi
@@ -426,7 +426,7 @@ Module psb_tools_mod
type(psb_desc_type), intent(inout) :: desc_a
type(psb_dspmat_type), intent(inout) :: a
integer, intent(in) :: nz,ia(:),ja(:)
real(kind(1.d0)), intent(in) :: val(:)
real(psb_dpk_), intent(in) :: val(:)
integer, intent(out) :: info
logical, intent(in), optional :: rebuild
end subroutine psb_dspins
@@ -446,7 +446,7 @@ Module psb_tools_mod
type(psb_desc_type), intent(inout) :: desc_a
type(psb_zspmat_type), intent(inout) :: a
integer, intent(in) :: nz,ia(:),ja(:)
complex(kind(1.d0)), intent(in) :: val(:)
complex(psb_dpk_), intent(in) :: val(:)
integer, intent(out) :: info
logical, intent(in), optional :: rebuild
end subroutine psb_zspins
base/modules/psi_mod.f90
+72 -60
View File
@@ -100,8 +100,8 @@ module psi_mod
use psb_descriptor_type
integer, intent(in) :: flag, n
integer, intent(out) :: info
real(kind(1.d0)) :: y(:,:), beta
real(kind(1.d0)),target :: work(:)
real(psb_dpk_) :: y(:,:), beta
real(psb_dpk_),target :: work(:)
type(psb_desc_type), target :: desc_a
integer, optional :: data
end subroutine psi_dswapdatam
@@ -109,23 +109,25 @@ module psi_mod
use psb_descriptor_type
integer, intent(in) :: flag
integer, intent(out) :: info
real(kind(1.d0)) :: y(:), beta
real(kind(1.d0)),target :: work(:)
real(psb_dpk_) :: y(:), beta
real(psb_dpk_),target :: work(:)
type(psb_desc_type), target :: desc_a
integer, optional :: data
end subroutine psi_dswapdatav
subroutine psi_dswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag, n
integer, intent(out) :: info
real(kind(1.d0)) :: y(:,:), beta
real(kind(1.d0)),target :: work(:)
real(psb_dpk_) :: y(:,:), beta
real(psb_dpk_),target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_dswapidxm
subroutine psi_dswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
real(kind(1.d0)) :: y(:), beta
real(kind(1.d0)),target :: work(:)
real(psb_dpk_) :: y(:), beta
real(psb_dpk_),target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_dswapidxv
subroutine psi_iswapdatam(flag,n,beta,y,desc_a,work,info,data)
@@ -147,6 +149,7 @@ module psi_mod
integer, optional :: data
end subroutine psi_iswapdatav
subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag, n
integer, intent(out) :: info
integer :: y(:,:), beta
@@ -154,6 +157,7 @@ module psi_mod
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_iswapidxm
subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
integer :: y(:), beta
@@ -164,8 +168,8 @@ module psi_mod
use psb_descriptor_type
integer, intent(in) :: flag, n
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:,:), beta
complex(kind(1.d0)),target :: work(:)
complex(psb_dpk_) :: y(:,:), beta
complex(psb_dpk_),target :: work(:)
type(psb_desc_type), target :: desc_a
integer, optional :: data
end subroutine psi_zswapdatam
@@ -173,23 +177,25 @@ module psi_mod
use psb_descriptor_type
integer, intent(in) :: flag
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:), beta
complex(kind(1.d0)),target :: work(:)
complex(psb_dpk_) :: y(:), beta
complex(psb_dpk_),target :: work(:)
type(psb_desc_type), target :: desc_a
integer, optional :: data
end subroutine psi_zswapdatav
subroutine psi_zswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag, n
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:,:), beta
complex(kind(1.d0)),target :: work(:)
complex(psb_dpk_) :: y(:,:), beta
complex(psb_dpk_),target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_zswapidxm
subroutine psi_zswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:), beta
complex(kind(1.d0)),target :: work(:)
complex(psb_dpk_) :: y(:), beta
complex(psb_dpk_),target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_zswapidxv
end interface
@@ -200,8 +206,8 @@ module psi_mod
use psb_descriptor_type
integer, intent(in) :: flag, n
integer, intent(out) :: info
real(kind(1.d0)) :: y(:,:), beta
real(kind(1.d0)),target :: work(:)
real(psb_dpk_) :: y(:,:), beta
real(psb_dpk_),target :: work(:)
type(psb_desc_type), target :: desc_a
integer, optional :: data
end subroutine psi_dswaptranm
@@ -209,23 +215,25 @@ module psi_mod
use psb_descriptor_type
integer, intent(in) :: flag
integer, intent(out) :: info
real(kind(1.d0)) :: y(:), beta
real(kind(1.d0)),target :: work(:)
real(psb_dpk_) :: y(:), beta
real(psb_dpk_),target :: work(:)
type(psb_desc_type), target :: desc_a
integer, optional :: data
end subroutine psi_dswaptranv
subroutine psi_dtranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag, n
integer, intent(out) :: info
real(kind(1.d0)) :: y(:,:), beta
real(kind(1.d0)),target :: work(:)
real(psb_dpk_) :: y(:,:), beta
real(psb_dpk_),target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_dtranidxm
subroutine psi_dtranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
real(kind(1.d0)) :: y(:), beta
real(kind(1.d0)),target :: work(:)
real(psb_dpk_) :: y(:), beta
real(psb_dpk_),target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_dtranidxv
subroutine psi_iswaptranm(flag,n,beta,y,desc_a,work,info,data)
@@ -247,6 +255,7 @@ module psi_mod
integer, optional :: data
end subroutine psi_iswaptranv
subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag, n
integer, intent(out) :: info
integer :: y(:,:), beta
@@ -254,6 +263,7 @@ module psi_mod
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_itranidxm
subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
integer :: y(:), beta
@@ -264,8 +274,8 @@ module psi_mod
use psb_descriptor_type
integer, intent(in) :: flag, n
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:,:), beta
complex(kind(1.d0)),target :: work(:)
complex(psb_dpk_) :: y(:,:), beta
complex(psb_dpk_),target :: work(:)
type(psb_desc_type), target :: desc_a
integer, optional :: data
end subroutine psi_zswaptranm
@@ -273,23 +283,25 @@ module psi_mod
use psb_descriptor_type
integer, intent(in) :: flag
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:), beta
complex(kind(1.d0)),target :: work(:)
complex(psb_dpk_) :: y(:), beta
complex(psb_dpk_),target :: work(:)
type(psb_desc_type), target :: desc_a
integer, optional :: data
end subroutine psi_zswaptranv
subroutine psi_ztranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag, n
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:,:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:,:), beta
complex(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_ztranidxm
subroutine psi_ztranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info)
use psb_const_mod
integer, intent(in) :: ictxt,icomm,flag
integer, intent(out) :: info
complex(kind(1.d0)) :: y(:), beta
complex(kind(1.d0)), target :: work(:)
complex(psb_dpk_) :: y(:), beta
complex(psb_dpk_), target :: work(:)
integer, intent(in) :: idx(:),totxch,totsnd,totrcv
end subroutine psi_ztranidxv
end interface
@@ -678,7 +690,7 @@ contains
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout), target :: x(:)
real(psb_dpk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(in) :: update
integer, intent(out) :: info
@@ -750,7 +762,7 @@ contains
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout), target :: x(:,:)
real(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(in) :: update
integer, intent(out) :: info
@@ -821,7 +833,7 @@ contains
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout), target :: x(:)
complex(psb_dpk_), intent(inout), target :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(in) :: update
integer, intent(out) :: info
@@ -893,7 +905,7 @@ contains
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout), target :: x(:,:)
complex(psb_dpk_), intent(inout), target :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(in) :: update
integer, intent(out) :: info
@@ -1112,8 +1124,8 @@ contains
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout) :: x(:)
real(kind(1.d0)), allocatable :: xs(:)
real(psb_dpk_), intent(inout) :: x(:)
real(psb_dpk_), allocatable :: xs(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -1166,8 +1178,8 @@ contains
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout) :: x(:)
real(kind(1.d0)) :: xs(:)
real(psb_dpk_), intent(inout) :: x(:)
real(psb_dpk_) :: xs(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -1216,8 +1228,8 @@ contains
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout) :: x(:,:)
real(kind(1.d0)), allocatable :: xs(:,:)
real(psb_dpk_), intent(inout) :: x(:,:)
real(psb_dpk_), allocatable :: xs(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -1271,8 +1283,8 @@ contains
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(inout) :: x(:,:)
real(kind(1.d0)) :: xs(:,:)
real(psb_dpk_), intent(inout) :: x(:,:)
real(psb_dpk_) :: xs(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -1329,8 +1341,8 @@ contains
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout) :: x(:)
complex(kind(1.d0)), allocatable :: xs(:)
complex(psb_dpk_), intent(inout) :: x(:)
complex(psb_dpk_), allocatable :: xs(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -1383,8 +1395,8 @@ contains
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout) :: x(:)
complex(kind(1.d0)) :: xs(:)
complex(psb_dpk_), intent(inout) :: x(:)
complex(psb_dpk_) :: xs(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -1433,8 +1445,8 @@ contains
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout) :: x(:,:)
complex(kind(1.d0)), allocatable :: xs(:,:)
complex(psb_dpk_), intent(inout) :: x(:,:)
complex(psb_dpk_), allocatable :: xs(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -1488,8 +1500,8 @@ contains
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(inout) :: x(:,:)
complex(kind(1.d0)) :: xs(:,:)
complex(psb_dpk_), intent(inout) :: x(:,:)
complex(psb_dpk_) :: xs(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
@@ -1759,7 +1771,7 @@ contains
!!$ implicit none
!!$
!!$ integer :: n, k, idx(:)
!!$ real(kind(1.d0)) :: x(:,:), y(:)
!!$ real(psb_dpk_) :: x(:,:), y(:)
!!$
!!$ ! Locals
!!$ integer :: i, j, pt
@@ -1780,7 +1792,7 @@ contains
!!$ implicit none
!!$
!!$ integer :: n, idx(:)
!!$ real(kind(1.d0)) :: x(:), y(:)
!!$ real(psb_dpk_) :: x(:), y(:)
!!$
!!$ ! Locals
!!$ integer :: i
@@ -1798,7 +1810,7 @@ contains
!!$ implicit none
!!$
!!$ integer :: n, k, idx(:)
!!$ real(kind(1.d0)) :: beta, x(:), y(:,:)
!!$ real(psb_dpk_) :: beta, x(:), y(:,:)
!!$
!!$ ! Locals
!!$ integer :: i, j, pt
@@ -1836,7 +1848,7 @@ contains
!!$ implicit none
!!$
!!$ integer :: n, idx(:)
!!$ real(kind(1.d0)) :: beta, x(:), y(:)
!!$ real(psb_dpk_) :: beta, x(:), y(:)
!!$
!!$ ! Locals
!!$ integer :: i
@@ -1969,7 +1981,7 @@ contains
!!$ implicit none
!!$
!!$ integer :: n, k, idx(:)
!!$ complex(kind(1.d0)) :: x(:,:), y(:)
!!$ complex(psb_dpk_) :: x(:,:), y(:)
!!$
!!$ ! Locals
!!$ integer :: i, j, pt
@@ -1991,7 +2003,7 @@ contains
!!$ implicit none
!!$
!!$ integer :: n, idx(:)
!!$ complex(kind(1.d0)) :: x(:), y(:)
!!$ complex(psb_dpk_) :: x(:), y(:)
!!$
!!$ ! Locals
!!$ integer :: i
@@ -2008,7 +2020,7 @@ contains
!!$ implicit none
!!$
!!$ integer :: n, k, idx(:)
!!$ complex(kind(1.d0)) :: beta, x(:), y(:,:)
!!$ complex(psb_dpk_) :: beta, x(:), y(:,:)
!!$
!!$ ! Locals
!!$ integer :: i, j, pt
@@ -2047,7 +2059,7 @@ contains
!!$ implicit none
!!$
!!$ integer :: n, idx(:)
!!$ complex(kind(1.d0)) :: beta, x(:), y(:)
!!$ complex(psb_dpk_) :: beta, x(:), y(:)
!!$
!!$ ! Locals
!!$ integer :: i
base/modules/psi_serial_mod.f90
+10 -10
View File
@@ -105,7 +105,7 @@ contains
implicit none
integer :: n, idx(:)
real(kind(1.d0)) :: x(:), y(:), alpha, beta
real(psb_dpk_) :: x(:), y(:), alpha, beta
! Locals
integer :: i
@@ -155,7 +155,7 @@ contains
implicit none
integer :: n, idx(:)
complex(kind(1.d0)) :: x(:), y(:),alpha,beta
complex(psb_dpk_) :: x(:), y(:),alpha,beta
! Locals
integer :: i
@@ -208,7 +208,7 @@ contains
implicit none
integer :: n, k, idx(:)
real(kind(1.d0)) :: x(:,:), y(:)
real(psb_dpk_) :: x(:,:), y(:)
! Locals
integer :: i, j, pt
@@ -252,7 +252,7 @@ contains
implicit none
integer :: n, k, idx(:)
complex(kind(1.d0)) :: x(:,:), y(:)
complex(psb_dpk_) :: x(:,:), y(:)
! Locals
integer :: i, j, pt
@@ -273,7 +273,7 @@ contains
implicit none
integer :: n, idx(:)
real(kind(1.d0)) :: x(:), y(:)
real(psb_dpk_) :: x(:), y(:)
! Locals
integer :: i
@@ -307,7 +307,7 @@ contains
implicit none
integer :: n, idx(:)
complex(kind(1.d0)) :: x(:), y(:)
complex(psb_dpk_) :: x(:), y(:)
! Locals
integer :: i
@@ -325,7 +325,7 @@ contains
implicit none
integer :: n, k, idx(:)
real(kind(1.d0)) :: beta, x(:), y(:,:)
real(psb_dpk_) :: beta, x(:), y(:,:)
! Locals
integer :: i, j, pt
@@ -363,7 +363,7 @@ contains
implicit none
integer :: n, idx(:)
real(kind(1.d0)) :: beta, x(:), y(:)
real(psb_dpk_) :: beta, x(:), y(:)
! Locals
integer :: i
@@ -456,7 +456,7 @@ contains
implicit none
integer :: n, k, idx(:)
complex(kind(1.d0)) :: beta, x(:), y(:,:)
complex(psb_dpk_) :: beta, x(:), y(:,:)
! Locals
integer :: i, j, pt
@@ -495,7 +495,7 @@ contains
implicit none
integer :: n, idx(:)
complex(kind(1.d0)) :: beta, x(:), y(:)
complex(psb_dpk_) :: beta, x(:), y(:)
! Locals
integer :: i
base/psblas/psb_damax.f90
+12 -12
View File
@@ -52,16 +52,16 @@ function psb_damax (x,desc_a, info, jx)
use psb_error_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:,:)
real(psb_dpk_), intent(in) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, optional, intent(in) :: jx
real(kind(1.d0)) :: psb_damax
real(psb_dpk_) :: psb_damax
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ix, ijx, m, imax, idamax
real(kind(1.d0)) :: amax
real(psb_dpk_) :: amax
character(len=20) :: name, ch_err
name='psb_damax'
@@ -180,15 +180,15 @@ function psb_damaxv (x,desc_a, info)
use psb_error_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:)
real(psb_dpk_), intent(in) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)) :: psb_damaxv
real(psb_dpk_) :: psb_damaxv
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, jx, ix, m, imax, idamax
real(kind(1.d0)) :: amax
real(psb_dpk_) :: amax
character(len=20) :: name, ch_err
name='psb_damaxv'
@@ -304,15 +304,15 @@ subroutine psb_damaxvs (res,x,desc_a, info)
use psb_error_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:)
real(psb_dpk_), intent(in) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.D0)), intent(out) :: res
real(psb_dpk_), intent(out) :: res
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ix, ijx, m, imax, idamax
real(kind(1.d0)) :: amax
real(psb_dpk_) :: amax
character(len=20) :: name, ch_err
name='psb_damaxvs'
@@ -426,16 +426,16 @@ subroutine psb_dmamaxs (res,x,desc_a, info,jx)
use psb_error_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:,:)
real(psb_dpk_), intent(in) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, optional, intent(in) :: jx
real(kind(1.d0)), intent(out) :: res(:)
real(psb_dpk_), intent(out) :: res(:)
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ix, ijx, m, imax, i, k, idamax
real(kind(1.d0)) :: amax
real(psb_dpk_) :: amax
character(len=20) :: name, ch_err
name='psb_dmamaxs'
base/psblas/psb_dasum.f90
+9 -9
View File
@@ -53,16 +53,16 @@ function psb_dasum (x,desc_a, info, jx)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:,:)
real(psb_dpk_), intent(in) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, optional, intent(in) :: jx
real(kind(1.d0)) :: psb_dasum
real(psb_dpk_) :: psb_dasum
! locals
integer :: ictxt, np, me, err_act, &
& iix, jjx, ix, ijx, m, i, idx, ndm
real(kind(1.d0)) :: asum, dasum
real(psb_dpk_) :: asum, dasum
character(len=20) :: name, ch_err
name='psb_dasum'
@@ -197,14 +197,14 @@ function psb_dasumv (x,desc_a, info)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:)
real(psb_dpk_), intent(in) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)) :: psb_dasumv
real(psb_dpk_) :: psb_dasumv
! locals
integer :: ictxt, np, me, err_act, iix, jjx, jx, ix, m, i, idx, ndm
real(kind(1.d0)) :: asum, dasum
real(psb_dpk_) :: asum, dasum
character(len=20) :: name, ch_err
name='psb_dasumv'
@@ -334,14 +334,14 @@ subroutine psb_dasumvs(res,x,desc_a, info)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:)
real(kind(1.d0)), intent(out) :: res
real(psb_dpk_), intent(in) :: x(:)
real(psb_dpk_), intent(out) :: res
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
! locals
integer :: ictxt, np, me, err_act, iix, jjx, ix, jx, m, i, idx, ndm
real(kind(1.d0)) :: asum, dasum
real(psb_dpk_) :: asum, dasum
character(len=20) :: name, ch_err
name='psb_dasumvs'
base/psblas/psb_daxpby.f90
+6 -6
View File
@@ -61,9 +61,9 @@ subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
integer, intent(in), optional :: n, jx, jy
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_a
real(kind(1.D0)), intent(in) :: alpha, beta
real(kind(1.D0)), intent(in) :: x(:,:)
real(kind(1.D0)), intent(inout) :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta
real(psb_dpk_), intent(in) :: x(:,:)
real(psb_dpk_), intent(inout) :: y(:,:)
! locals
integer :: ictxt, np, me,&
@@ -215,9 +215,9 @@ subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info)
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_a
real(kind(1.D0)), intent(in) :: alpha, beta
real(kind(1.D0)), intent(in) :: x(:)
real(kind(1.D0)), intent(inout) :: y(:)
real(psb_dpk_), intent(in) :: alpha, beta
real(psb_dpk_), intent(in) :: x(:)
real(psb_dpk_), intent(inout) :: y(:)
! locals
integer :: ictxt, np, me,&
base/psblas/psb_ddot.f90
+16 -16
View File
@@ -55,17 +55,17 @@ function psb_ddot(x, y,desc_a, info, jx, jy)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:,:), y(:,:)
real(psb_dpk_), intent(in) :: x(:,:), y(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(in), optional :: jx, jy
integer, intent(out) :: info
real(kind(1.D0)) :: psb_ddot
real(psb_dpk_) :: psb_ddot
! locals
integer :: ictxt, np, me, idx, ndm,&
& err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m
real(kind(1.D0)) :: dot_local
real(kind(1.d0)) :: ddot
real(psb_dpk_) :: dot_local
real(psb_dpk_) :: ddot
character(len=20) :: name, ch_err
name='psb_ddot'
@@ -208,16 +208,16 @@ function psb_ddotv(x, y,desc_a, info)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:), y(:)
real(psb_dpk_), intent(in) :: x(:), y(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.D0)) :: psb_ddotv
real(psb_dpk_) :: psb_ddotv
! locals
integer :: ictxt, np, me, idx, ndm,&
& err_act, iix, jjx, ix, jx, iy, jy, iiy, jjy, i, m
real(kind(1.D0)) :: dot_local
real(kind(1.d0)) :: ddot
real(psb_dpk_) :: dot_local
real(psb_dpk_) :: ddot
character(len=20) :: name, ch_err
name='psb_ddot'
@@ -345,16 +345,16 @@ subroutine psb_ddotvs(res, x, y,desc_a, info)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:), y(:)
real(kind(1.d0)), intent(out) :: res
real(psb_dpk_), intent(in) :: x(:), y(:)
real(psb_dpk_), intent(out) :: res
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
! locals
integer :: ictxt, np, me, idx, ndm,&
& err_act, iix, jjx, ix, iy, iiy, jjy, i, m
real(kind(1.D0)) :: dot_local
real(kind(1.d0)) :: ddot
real(psb_dpk_) :: dot_local
real(psb_dpk_) :: ddot
character(len=20) :: name, ch_err
name='psb_ddot'
@@ -480,16 +480,16 @@ subroutine psb_dmdots(res, x, y, desc_a, info)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:,:), y(:,:)
real(kind(1.d0)), intent(out) :: res(:)
real(psb_dpk_), intent(in) :: x(:,:), y(:,:)
real(psb_dpk_), intent(out) :: res(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
! locals
integer :: ictxt, np, me, idx, ndm,&
& err_act, iix, jjx, ix, iy, iiy, jjy, i, m, j, k
real(kind(1.d0)),allocatable :: dot_local(:)
real(kind(1.d0)) :: ddot
real(psb_dpk_),allocatable :: dot_local(:)
real(psb_dpk_) :: ddot
character(len=20) :: name, ch_err
name='psb_dmdots'
base/psblas/psb_dnrm2.f90
+9 -9
View File
@@ -51,16 +51,16 @@ function psb_dnrm2(x, desc_a, info, jx)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:,:)
real(psb_dpk_), intent(in) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(in), optional :: jx
integer, intent(out) :: info
real(kind(1.D0)) :: psb_dnrm2
real(psb_dpk_) :: psb_dnrm2
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ndim, ix, ijx, i, m, id, idx, ndm
real(kind(1.d0)) :: nrm2, dnrm2, dd
real(psb_dpk_) :: nrm2, dnrm2, dd
external dcombnrm2
character(len=20) :: name, ch_err
@@ -186,15 +186,15 @@ function psb_dnrm2v(x, desc_a, info)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:)
real(psb_dpk_), intent(in) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.D0)) :: psb_dnrm2v
real(psb_dpk_) :: psb_dnrm2v
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm
real(kind(1.d0)) :: nrm2, dnrm2, dd
real(psb_dpk_) :: nrm2, dnrm2, dd
external dcombnrm2
character(len=20) :: name, ch_err
@@ -317,15 +317,15 @@ subroutine psb_dnrm2vs(res, x, desc_a, info)
use psb_penv_mod
implicit none
real(kind(1.d0)), intent(in) :: x(:)
real(kind(1.d0)), intent(out) :: res
real(psb_dpk_), intent(in) :: x(:)
real(psb_dpk_), intent(out) :: res
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm
real(kind(1.d0)) :: nrm2, dnrm2, dd
real(psb_dpk_) :: nrm2, dnrm2, dd
external dcombnrm2
character(len=20) :: name, ch_err
base/psblas/psb_dnrmi.f90
+2 -2
View File
@@ -52,12 +52,12 @@ function psb_dnrmi(a,desc_a,info)
type(psb_dspmat_type), intent(in) :: a
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_a
real(kind(1.d0)) :: psb_dnrmi
real(psb_dpk_) :: psb_dnrmi
! locals
integer :: ictxt, np, me,&
& err_act, n, iia, jja, ia, ja, mdim, ndim, m
real(kind(1.d0)) :: nrmi, dcsnmi
real(psb_dpk_) :: nrmi, dcsnmi
character(len=20) :: name, ch_err
name='psb_dnrmi'
base/psblas/psb_dspmm.f90
+12 -12
View File
@@ -76,13 +76,13 @@ subroutine psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
use psb_penv_mod
implicit none
real(kind(1.D0)), intent(in) :: alpha, beta
real(kind(1.d0)), intent(inout), target :: x(:,:)
real(kind(1.d0)), intent(inout), target :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta
real(psb_dpk_), intent(inout), target :: x(:,:)
real(psb_dpk_), intent(inout), target :: y(:,:)
type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), optional, target :: work(:)
real(psb_dpk_), optional, target :: work(:)
character, intent(in), optional :: trans
integer, intent(in), optional :: k, jx, jy
logical, intent(in), optional :: doswap
@@ -93,8 +93,8 @@ subroutine psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
& m, nrow, ncol, lldx, lldy, liwork, iiy, jjy,&
& i, ib, ib1, ip, idx
integer, parameter :: nb=4
real(kind(1.d0)), pointer :: xp(:,:), yp(:,:), iwork(:)
real(kind(1.d0)), allocatable :: xvsave(:,:)
real(psb_dpk_), pointer :: xp(:,:), yp(:,:), iwork(:)
real(psb_dpk_), allocatable :: xvsave(:,:)
character :: trans_
character(len=20) :: name, ch_err
logical :: aliw, doswap_
@@ -421,13 +421,13 @@ subroutine psb_dspmv(alpha,a,x,beta,y,desc_a,info,&
use psb_penv_mod
implicit none
real(kind(1.D0)), intent(in) :: alpha, beta
real(kind(1.d0)), intent(inout), target :: x(:)
real(kind(1.d0)), intent(inout), target :: y(:)
real(psb_dpk_), intent(in) :: alpha, beta
real(psb_dpk_), intent(inout), target :: x(:)
real(psb_dpk_), intent(inout), target :: y(:)
type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), optional, target :: work(:)
real(psb_dpk_), optional, target :: work(:)
character, intent(in), optional :: trans
logical, intent(in), optional :: doswap
@@ -437,8 +437,8 @@ subroutine psb_dspmv(alpha,a,x,beta,y,desc_a,info,&
& m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,&
& ib, ip, idx
integer, parameter :: nb=4
real(kind(1.d0)), pointer :: iwork(:), xp(:), yp(:)
real(kind(1.d0)), allocatable :: xvsave(:)
real(psb_dpk_), pointer :: iwork(:), xp(:), yp(:)
real(psb_dpk_), allocatable :: xvsave(:)
character :: trans_
character(len=20) :: name, ch_err
logical :: aliw, doswap_
base/psblas/psb_dspsm.f90
+12 -12
View File
@@ -88,14 +88,14 @@ subroutine psb_dspsm(alpha,a,x,beta,y,desc_a,info,&
use psb_penv_mod
implicit none
real(kind(1.D0)), intent(in) :: alpha, beta
real(kind(1.d0)), intent(in), target :: x(:,:)
real(kind(1.d0)), intent(inout), target :: y(:,:)
real(psb_dpk_), intent(in) :: alpha, beta
real(psb_dpk_), intent(in), target :: x(:,:)
real(psb_dpk_), intent(inout), target :: y(:,:)
type (psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional, target :: diag(:)
real(kind(1.d0)), optional, target :: work(:)
real(psb_dpk_), intent(in), optional, target :: diag(:)
real(psb_dpk_), optional, target :: work(:)
character, intent(in), optional :: trans, unitd
integer, intent(in), optional :: choice
integer, intent(in), optional :: k, jx, jy
@@ -108,7 +108,7 @@ subroutine psb_dspsm(alpha,a,x,beta,y,desc_a,info,&
character :: lunitd
integer, parameter :: nb=4
real(kind(1.d0)),pointer :: iwork(:), xp(:,:), yp(:,:), id(:)
real(psb_dpk_),pointer :: iwork(:), xp(:,:), yp(:,:), id(:)
character :: itrans
character(len=20) :: name, ch_err
logical :: aliw
@@ -376,14 +376,14 @@ subroutine psb_dspsv(alpha,a,x,beta,y,desc_a,info,&
use psb_penv_mod
implicit none
real(kind(1.D0)), intent(in) :: alpha, beta
real(kind(1.d0)), intent(in), target :: x(:)
real(kind(1.d0)), intent(inout), target :: y(:)
real(psb_dpk_), intent(in) :: alpha, beta
real(psb_dpk_), intent(in), target :: x(:)
real(psb_dpk_), intent(inout), target :: y(:)
type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)), intent(in), optional, target :: diag(:)
real(kind(1.d0)), optional, target :: work(:)
real(psb_dpk_), intent(in), optional, target :: diag(:)
real(psb_dpk_), optional, target :: work(:)
character, intent(in), optional :: trans, unitd
integer, intent(in), optional :: choice
@@ -395,7 +395,7 @@ subroutine psb_dspsv(alpha,a,x,beta,y,desc_a,info,&
character :: lunitd
integer, parameter :: nb=4
real(kind(1.d0)),pointer :: iwork(:), xp(:), yp(:), id(:)
real(psb_dpk_),pointer :: iwork(:), xp(:), yp(:), id(:)
character :: itrans
character(len=20) :: name, ch_err
logical :: aliw
base/psblas/psb_zamax.f90
+15 -15
View File
@@ -52,16 +52,16 @@ function psb_zamax (x,desc_a, info, jx)
use psb_error_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:,:)
complex(psb_dpk_), intent(in) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, optional, intent(in) :: jx
real(kind(1.d0)) :: psb_zamax
real(psb_dpk_) :: psb_zamax
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ix, ijx, m, imax, izamax
real(kind(1.d0)) :: amax
real(psb_dpk_) :: amax
character(len=20) :: name, ch_err
double complex :: zdum
double precision :: cabs1
@@ -183,16 +183,16 @@ function psb_zamaxv (x,desc_a, info)
use psb_error_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:)
complex(psb_dpk_), intent(in) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)) :: psb_zamaxv
real(psb_dpk_) :: psb_zamaxv
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, jx, ix, m, imax, izamax
real(kind(1.d0)) :: amax
complex(kind(1.d0)) :: cmax
real(psb_dpk_) :: amax
complex(psb_dpk_) :: cmax
character(len=20) :: name, ch_err
double complex :: zdum
double precision :: cabs1
@@ -312,17 +312,17 @@ subroutine psb_zamaxvs(res,x,desc_a, info)
use psb_error_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:)
complex(psb_dpk_), intent(in) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.D0)), intent(out) :: res
real(psb_dpk_), intent(out) :: res
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ix, ijx, m, imax, izamax
real(kind(1.d0)) :: amax
real(psb_dpk_) :: amax
character(len=20) :: name, ch_err
complex(kind(1.d0)) :: cmax
complex(psb_dpk_) :: cmax
double complex :: zdum
double precision :: cabs1
cabs1( zdum ) = abs( dble( zdum ) ) + abs( dimag( zdum ) )
@@ -438,18 +438,18 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx)
use psb_error_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:,:)
complex(psb_dpk_), intent(in) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, optional, intent(in) :: jx
real(kind(1.d0)), intent(out) :: res(:)
real(psb_dpk_), intent(out) :: res(:)
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ix, ijx, m, imax, i, k, izamax
real(kind(1.d0)) :: amax
real(psb_dpk_) :: amax
character(len=20) :: name, ch_err
complex(kind(1.d0)) :: cmax
complex(psb_dpk_) :: cmax
double complex :: zdum
double precision :: cabs1
cabs1( zdum ) = abs( dble( zdum ) ) + abs( dimag( zdum ) )
base/psblas/psb_zasum.f90
+12 -12
View File
@@ -53,18 +53,18 @@ function psb_zasum (x,desc_a, info, jx)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:,:)
complex(psb_dpk_), intent(in) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
integer, optional, intent(in) :: jx
real(kind(1.d0)) :: psb_zasum
real(psb_dpk_) :: psb_zasum
! locals
integer :: ictxt, np, me, &
& err_act, iix, jjx, ix, ijx, m, i, idx, ndm
real(kind(1.d0)) :: asum, dzasum
real(psb_dpk_) :: asum, dzasum
character(len=20) :: name, ch_err
complex(kind(1.d0)) :: cmax
complex(psb_dpk_) :: cmax
double complex :: zdum
double precision :: cabs1
cabs1( zdum ) = abs( dble( zdum ) ) + abs( dimag( zdum ) )
@@ -201,17 +201,17 @@ function psb_zasumv(x,desc_a, info)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:)
complex(psb_dpk_), intent(in) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.d0)) :: psb_zasumv
real(psb_dpk_) :: psb_zasumv
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, jx, ix, m, i, idx, ndm
real(kind(1.d0)) :: asum, dzasum
real(psb_dpk_) :: asum, dzasum
character(len=20) :: name, ch_err
complex(kind(1.d0)) :: cmax
complex(psb_dpk_) :: cmax
double complex :: zdum
double precision :: cabs1
cabs1( zdum ) = abs( dble( zdum ) ) + abs( dimag( zdum ) )
@@ -344,17 +344,17 @@ subroutine psb_zasumvs(res,x,desc_a, info)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:)
real(kind(1.d0)), intent(out) :: res
complex(psb_dpk_), intent(in) :: x(:)
real(psb_dpk_), intent(out) :: res
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ix, jx, m, i, idx, ndm
real(kind(1.d0)) :: asum, dzasum
real(psb_dpk_) :: asum, dzasum
character(len=20) :: name, ch_err
complex(kind(1.d0)) :: cmax
complex(psb_dpk_) :: cmax
double complex :: zdum
double precision :: cabs1
cabs1( zdum ) = abs( dble( zdum ) ) + abs( dimag( zdum ) )
base/psblas/psb_zaxpby.f90
+6 -6
View File
@@ -61,9 +61,9 @@ subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
integer, intent(in), optional :: n, jx, jy
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_a
complex(kind(1.D0)), intent(in) :: alpha, beta
complex(kind(1.D0)), intent(in) :: x(:,:)
complex(kind(1.D0)), intent(inout) :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta
complex(psb_dpk_), intent(in) :: x(:,:)
complex(psb_dpk_), intent(inout) :: y(:,:)
! locals
integer :: ictxt, np, me,&
@@ -214,9 +214,9 @@ subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info)
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_a
complex(kind(1.D0)), intent(in) :: alpha, beta
complex(kind(1.D0)), intent(in) :: x(:)
complex(kind(1.D0)), intent(inout) :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta
complex(psb_dpk_), intent(in) :: x(:)
complex(psb_dpk_), intent(inout) :: y(:)
! locals
integer :: ictxt, np, me,&
base/psblas/psb_zdot.f90
+16 -16
View File
@@ -55,17 +55,17 @@ function psb_zdot(x, y,desc_a, info, jx, jy)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:,:), y(:,:)
complex(psb_dpk_), intent(in) :: x(:,:), y(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(in), optional :: jx, jy
integer, intent(out) :: info
complex(kind(1.D0)) :: psb_zdot
complex(psb_dpk_) :: psb_zdot
! locals
integer :: ictxt, np, me, idx, ndm,&
& err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m
complex(kind(1.D0)) :: dot_local
complex(kind(1.d0)) :: zdotc
complex(psb_dpk_) :: dot_local
complex(psb_dpk_) :: zdotc
character(len=20) :: name, ch_err
name='psb_zdot'
@@ -208,16 +208,16 @@ function psb_zdotv(x, y,desc_a, info)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:), y(:)
complex(psb_dpk_), intent(in) :: x(:), y(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.D0)) :: psb_zdotv
complex(psb_dpk_) :: psb_zdotv
! locals
integer :: ictxt, np, me, idx, ndm,&
& err_act, iix, jjx, ix, jx, iy, jy, iiy, jjy, i, m
complex(kind(1.D0)) :: dot_local
complex(kind(1.d0)) :: zdotc
complex(psb_dpk_) :: dot_local
complex(psb_dpk_) :: zdotc
character(len=20) :: name, ch_err
name='psb_zdot'
@@ -345,16 +345,16 @@ subroutine psb_zdotvs(res, x, y,desc_a, info)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:), y(:)
complex(kind(1.d0)), intent(out) :: res
complex(psb_dpk_), intent(in) :: x(:), y(:)
complex(psb_dpk_), intent(out) :: res
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
! locals
integer :: ictxt, np, me, idx, ndm,&
& err_act, iix, jjx, ix, iy, iiy, jjy, i, m
complex(kind(1.D0)) :: dot_local
complex(kind(1.d0)) :: zdotc
complex(psb_dpk_) :: dot_local
complex(psb_dpk_) :: zdotc
character(len=20) :: name, ch_err
name='psb_zdot'
@@ -480,16 +480,16 @@ subroutine psb_zmdots(res, x, y, desc_a, info)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:,:), y(:,:)
complex(kind(1.d0)), intent(out) :: res(:)
complex(psb_dpk_), intent(in) :: x(:,:), y(:,:)
complex(psb_dpk_), intent(out) :: res(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
! locals
integer :: ictxt, np, me, idx, ndm,&
& err_act, iix, jjx, ix, iy, iiy, jjy, i, m, j, k
complex(kind(1.d0)),allocatable :: dot_local(:)
complex(kind(1.d0)) :: zdotc
complex(psb_dpk_),allocatable :: dot_local(:)
complex(psb_dpk_) :: zdotc
character(len=20) :: name, ch_err
name='psb_zmdots'
base/psblas/psb_znrm2.f90
+9 -9
View File
@@ -51,16 +51,16 @@ function psb_znrm2(x, desc_a, info, jx)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:,:)
complex(psb_dpk_), intent(in) :: x(:,:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(in), optional :: jx
integer, intent(out) :: info
real(kind(1.D0)) :: psb_znrm2
real(psb_dpk_) :: psb_znrm2
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ndim, ix, ijx, i, m, id, idx, ndm
real(kind(1.d0)) :: nrm2, dznrm2, dd
real(psb_dpk_) :: nrm2, dznrm2, dd
external dcombnrm2
character(len=20) :: name, ch_err
@@ -187,15 +187,15 @@ function psb_znrm2v(x, desc_a, info)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:)
complex(psb_dpk_), intent(in) :: x(:)
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
real(kind(1.D0)) :: psb_znrm2v
real(psb_dpk_) :: psb_znrm2v
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm
real(kind(1.d0)) :: nrm2, dznrm2, dd
real(psb_dpk_) :: nrm2, dznrm2, dd
external dcombnrm2
character(len=20) :: name, ch_err
@@ -319,15 +319,15 @@ subroutine psb_znrm2vs(res, x, desc_a, info)
use psb_penv_mod
implicit none
complex(kind(1.d0)), intent(in) :: x(:)
real(kind(1.d0)), intent(out) :: res
complex(psb_dpk_), intent(in) :: x(:)
real(psb_dpk_), intent(out) :: res
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
! locals
integer :: ictxt, np, me,&
& err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm
real(kind(1.d0)) :: nrm2, dznrm2, dd
real(psb_dpk_) :: nrm2, dznrm2, dd
external dcombnrm2
character(len=20) :: name, ch_err
base/psblas/psb_znrmi.f90
+2 -2
View File
@@ -52,12 +52,12 @@ function psb_znrmi(a,desc_a,info)
type(psb_zspmat_type), intent(in) :: a
integer, intent(out) :: info
type(psb_desc_type), intent(in) :: desc_a
real(kind(1.d0)) :: psb_znrmi
real(psb_dpk_) :: psb_znrmi
! locals
integer :: ictxt, np, me,&
& err_act, n, iia, jja, ia, ja, mdim, ndim, m
real(kind(1.d0)) :: nrmi, zcsnmi
real(psb_dpk_) :: nrmi, zcsnmi
character(len=20) :: name, ch_err
name='psb_znrmi'
base/psblas/psb_zspmm.f90
+12 -12
View File
@@ -76,13 +76,13 @@ subroutine psb_zspmm(alpha,a,x,beta,y,desc_a,info,&
use psb_penv_mod
implicit none
complex(kind(1.D0)), intent(in) :: alpha, beta
complex(kind(1.d0)), intent(inout), target :: x(:,:)
complex(kind(1.d0)), intent(inout), target :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta
complex(psb_dpk_), intent(inout), target :: x(:,:)
complex(psb_dpk_), intent(inout), target :: y(:,:)
type(psb_zspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), optional, target :: work(:)
complex(psb_dpk_), optional, target :: work(:)
character, intent(in), optional :: trans
integer, intent(in), optional :: k, jx, jy
logical, intent(in), optional :: doswap
@@ -93,8 +93,8 @@ subroutine psb_zspmm(alpha,a,x,beta,y,desc_a,info,&
& m, nrow, ncol, lldx, lldy, liwork, iiy, jjy,&
& i, ib, ib1, ip, idx
integer, parameter :: nb=4
complex(kind(1.d0)), pointer :: xp(:,:), yp(:,:), iwork(:)
complex(kind(1.d0)), allocatable :: xvsave(:,:)
complex(psb_dpk_), pointer :: xp(:,:), yp(:,:), iwork(:)
complex(psb_dpk_), allocatable :: xvsave(:,:)
character :: trans_
character(len=20) :: name, ch_err
logical :: aliw, doswap_
@@ -421,13 +421,13 @@ subroutine psb_zspmv(alpha,a,x,beta,y,desc_a,info,&
use psb_penv_mod
implicit none
complex(kind(1.D0)), intent(in) :: alpha, beta
complex(kind(1.d0)), intent(inout), target :: x(:)
complex(kind(1.d0)), intent(inout), target :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta
complex(psb_dpk_), intent(inout), target :: x(:)
complex(psb_dpk_), intent(inout), target :: y(:)
type(psb_zspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), optional, target :: work(:)
complex(psb_dpk_), optional, target :: work(:)
character, intent(in), optional :: trans
logical, intent(in), optional :: doswap
@@ -437,8 +437,8 @@ subroutine psb_zspmv(alpha,a,x,beta,y,desc_a,info,&
& m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,&
& ib, ip, idx
integer, parameter :: nb=4
complex(kind(1.d0)), pointer :: iwork(:), xp(:), yp(:)
complex(kind(1.d0)), allocatable :: xvsave(:)
complex(psb_dpk_), pointer :: iwork(:), xp(:), yp(:)
complex(psb_dpk_), allocatable :: xvsave(:)
character :: trans_
character(len=20) :: name, ch_err
logical :: aliw, doswap_
base/psblas/psb_zspsm.f90
+12 -12
View File
@@ -87,14 +87,14 @@ subroutine psb_zspsm(alpha,a,x,beta,y,desc_a,info,&
use psb_penv_mod
implicit none
complex(kind(1.D0)), intent(in) :: alpha, beta
complex(kind(1.d0)), intent(in), target :: x(:,:)
complex(kind(1.d0)), intent(inout), target :: y(:,:)
complex(psb_dpk_), intent(in) :: alpha, beta
complex(psb_dpk_), intent(in), target :: x(:,:)
complex(psb_dpk_), intent(inout), target :: y(:,:)
type (psb_zspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), intent(in), optional, target :: diag(:)
complex(kind(1.d0)), optional, target :: work(:)
complex(psb_dpk_), intent(in), optional, target :: diag(:)
complex(psb_dpk_), optional, target :: work(:)
character, intent(in), optional :: trans, unitd
integer, intent(in), optional :: choice
integer, intent(in), optional :: k, jx, jy
@@ -107,7 +107,7 @@ subroutine psb_zspsm(alpha,a,x,beta,y,desc_a,info,&
character :: lunitd
integer, parameter :: nb=4
complex(kind(1.d0)),pointer :: iwork(:), xp(:,:), yp(:,:), id(:)
complex(psb_dpk_),pointer :: iwork(:), xp(:,:), yp(:,:), id(:)
character :: itrans
character(len=20) :: name, ch_err
logical :: aliw
@@ -375,14 +375,14 @@ subroutine psb_zspsv(alpha,a,x,beta,y,desc_a,info,&
use psb_penv_mod
implicit none
complex(kind(1.D0)), intent(in) :: alpha, beta
complex(kind(1.d0)), intent(in), target :: x(:)
complex(kind(1.d0)), intent(inout), target :: y(:)
complex(psb_dpk_), intent(in) :: alpha, beta
complex(psb_dpk_), intent(in), target :: x(:)
complex(psb_dpk_), intent(inout), target :: y(:)
type(psb_zspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
complex(kind(1.d0)), intent(in), optional, target :: diag(:)
complex(kind(1.d0)), optional, target :: work(:)
complex(psb_dpk_), intent(in), optional, target :: diag(:)
complex(psb_dpk_), optional, target :: work(:)
character, intent(in), optional :: trans, unitd
integer, intent(in), optional :: choice
@@ -394,7 +394,7 @@ subroutine psb_zspsv(alpha,a,x,beta,y,desc_a,info,&
character :: lunitd
integer, parameter :: nb=4
complex(kind(1.d0)),pointer :: iwork(:), xp(:), yp(:), id(:)
complex(psb_dpk_),pointer :: iwork(:), xp(:), yp(:), id(:)
character :: itrans
character(len=20) :: name, ch_err
logical :: aliw
base/serial/aux/dasr.f90
+6 -6
View File
@@ -39,10 +39,10 @@ subroutine dasr(n,x,dir)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
! ..
! .. Local Scalars ..
real(kind(1.d0)) :: piv, xt, xk
real(psb_dpk_) :: piv, xt, xk
integer i, j, ilx, iux, istp, lpiv
integer n1, n2
@@ -314,9 +314,9 @@ contains
subroutine disr_up(n,x)
implicit none
integer :: n
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: i,j
real(kind(1.d0)) :: xx,xax
real(psb_dpk_) :: xx,xax
do j=n-1,1,-1
if (abs(x(j+1)) < abs(x(j))) then
@@ -337,9 +337,9 @@ contains
subroutine disr_dw(n,x)
implicit none
integer :: n
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: i,j
real(kind(1.d0)) :: xx,xax
real(psb_dpk_) :: xx,xax
do j=n-1,1,-1
if (abs(x(j+1)) > abs(x(j))) then
base/serial/aux/dasrx.f90
+6 -6
View File
@@ -38,11 +38,11 @@ subroutine dasrx(n,x,indx,dir,flag)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir, flag
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: indx(n)
! ..
! .. Local Scalars ..
real(kind(1.d0)) :: piv, xt, xk
real(psb_dpk_) :: piv, xt, xk
integer i, j, ilx, iux, istp, lpiv
integer ixt, n1, n2
@@ -354,10 +354,10 @@ contains
subroutine idasrx_up(n,x,indx)
implicit none
integer :: n
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
real(kind(1.d0)) :: xx,xax
real(psb_dpk_) :: xx,xax
do j=n-1,1,-1
if (abs(x(j+1)) < abs(x(j))) then
@@ -381,10 +381,10 @@ contains
subroutine idasrx_dw(n,x,indx)
implicit none
integer :: n
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
real(kind(1.d0)) :: xx,xax
real(psb_dpk_) :: xx,xax
do j=n-1,1,-1
if (abs(x(j+1)) > abs(x(j))) then
base/serial/aux/dmsort_dw.f90
+2 -1
View File
@@ -68,9 +68,10 @@
!
!
subroutine dmsort_dw(n,k,l,iret)
use psb_const_mod
implicit none
integer n, iret
real(kind(1.d0)) :: k(n)
real(psb_dpk_) :: k(n)
integer l(0:n+1)
!
integer p,q,s,t
base/serial/aux/dmsort_up.f90
+2 -1
View File
@@ -68,9 +68,10 @@
!
!
subroutine dmsort_up(n,k,l,iret)
use psb_const_mod
implicit none
integer n, iret
real(kind(1.d0)) k(n)
real(psb_dpk_) k(n)
integer l(0:n+1)
!
integer p,q,s,t
base/serial/aux/dmsr.f90
+2 -2
View File
@@ -37,13 +37,13 @@ subroutine dmsr(n,x,idir)
implicit none
integer :: n, idir
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer, allocatable :: iaux(:)
integer :: lswap, iret, info, lp, k
real(kind(1.d0)) :: swap
real(psb_dpk_) :: swap
if (n<0) then
!!$ write(0,*) 'Error: IMSR: N<0'
base/serial/aux/dmsrx.f90
+2 -2
View File
@@ -36,13 +36,13 @@ subroutine dmsrx(n,x,indx,idir,flag)
use psb_serial_mod
implicit none
integer :: n,idir,flag
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: indx(n)
integer, allocatable :: iaux(:)
integer :: iret, info, lp, k,lswap, ixswap
real(kind(1.d0)) :: swap
real(psb_dpk_) :: swap
if (n<0) then
write(0,*) 'Error: DMSRX: N<0'
base/serial/aux/dsr.f90
+6 -6
View File
@@ -39,10 +39,10 @@ subroutine dsr(n,x,dir)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
! ..
! .. Local Scalars ..
real(kind(1.d0)) :: piv, xt, xk
real(psb_dpk_) :: piv, xt, xk
integer i, j, ilx, iux, istp, lpiv
integer n1, n2
@@ -314,9 +314,9 @@ contains
subroutine disr_up(n,x)
implicit none
integer :: n
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: i,j
real(kind(1.d0)) :: xx
real(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) < x(j)) then
@@ -336,9 +336,9 @@ contains
subroutine disr_dw(n,x)
implicit none
integer :: n
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: i,j
real(kind(1.d0)) :: xx
real(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) > x(j)) then
base/serial/aux/dsrx.f90
+6 -6
View File
@@ -38,11 +38,11 @@ subroutine dsrx(n,x,indx,dir,flag)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir, flag
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: indx(n)
! ..
! .. Local Scalars ..
real(kind(1.d0)) :: piv, xk, xt
real(psb_dpk_) :: piv, xk, xt
integer i, j, ilx, iux, istp, lpiv
integer ixt, n1, n2
@@ -356,10 +356,10 @@ contains
subroutine idsrx_up(n,x,indx)
implicit none
integer :: n
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
real(kind(1.d0)) :: xx
real(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) < x(j)) then
@@ -382,10 +382,10 @@ contains
subroutine idsrx_dw(n,x,indx)
implicit none
integer :: n
real(kind(1.d0)) :: x(n)
real(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
real(kind(1.d0)) :: xx
real(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) > x(j)) then
base/serial/aux/zacmp_mod.f90
+10 -5
View File
@@ -30,6 +30,7 @@
!!$
!!$
module zacmp_mod
use psb_const_mod
interface operator(<)
module procedure zalt
end interface
@@ -46,26 +47,30 @@ module zacmp_mod
contains
function zalt(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zalt
zalt = (abs(a) < abs(b))
end function zalt
function zale(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zale
zale = (abs(a) <= abs(b))
end function zale
function zagt(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zagt
zagt = (abs(a) > abs(b))
end function zagt
function zage(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zage
zage = (abs(a) >= abs(b))
base/serial/aux/zalcmp_mod.f90
+9 -4
View File
@@ -30,6 +30,7 @@
!!$
!!$
module zalcmp_mod
use psb_const_mod
interface operator(<)
module procedure zallt
end interface
@@ -46,14 +47,16 @@ module zalcmp_mod
contains
function zallt(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zallt
zallt = (abs(real(a))<abs(real(b))).or. &
& ((abs(real(a))==abs(real(b))).and.(abs(aimag(a))<abs(aimag(b))))
end function zallt
function zalle(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zalle
zalle = (abs(real(a))<abs(real(b))).or. &
@@ -61,14 +64,16 @@ contains
end function zalle
function zalgt(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zalgt
zalgt = (abs(real(a))>abs(real(b))).or. &
& ((abs(real(a))==abs(real(b))).and.(abs(aimag(a))>abs(aimag(b))))
end function zalgt
function zalge(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zalge
zalge = (abs(real(a))>abs(real(b))).or. &
base/serial/aux/zalsr.f90
+6 -6
View File
@@ -40,10 +40,10 @@ subroutine zalsr(n,x,dir)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
! ..
! .. Local Scalars ..
complex(kind(1.d0)) :: xk, piv, xt
complex(psb_dpk_) :: xk, piv, xt
integer i, j, ilx, iux, istp, lpiv
integer n1, n2
@@ -316,9 +316,9 @@ contains
use zalcmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: i,j
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) < x(j)) then
@@ -339,9 +339,9 @@ contains
use zalcmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: i,j
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) > x(j)) then
base/serial/aux/zalsrx.f90
+6 -6
View File
@@ -39,11 +39,11 @@ subroutine zalsrx(n,x,indx,dir,flag)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir, flag
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
! ..
! .. Local Scalars ..
complex(kind(1.d0)) :: piv, xk, xt
complex(psb_dpk_) :: piv, xk, xt
integer i, j, ilx, iux, istp, lpiv
integer ixt, n1, n2
@@ -359,10 +359,10 @@ contains
use zalcmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) < x(j)) then
@@ -386,10 +386,10 @@ contains
use zalcmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) > x(j)) then
base/serial/aux/zamsort_dw.f90
+1 -1
View File
@@ -71,7 +71,7 @@ subroutine zamsort_dw(n,k,l,iret)
use zacmp_mod
implicit none
integer n, iret
complex(kind(1.d0)) :: k(n)
complex(psb_dpk_) :: k(n)
integer l(0:n+1)
!
integer p,q,s,t
base/serial/aux/zamsort_up.f90
+1 -1
View File
@@ -71,7 +71,7 @@ subroutine zamsort_up(n,k,l,iret)
use zacmp_mod
implicit none
integer n, iret
complex(kind(1.d0)) k(n)
complex(psb_dpk_) k(n)
integer l(0:n+1)
!
integer p,q,s,t
base/serial/aux/zamsr.f90
+2 -2
View File
@@ -37,13 +37,13 @@ subroutine zamsr(n,x,idir)
implicit none
integer :: n, idir
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer, allocatable :: iaux(:)
integer :: lswap, iret, info, lp, k
complex(kind(1.d0)) :: swap
complex(psb_dpk_) :: swap
if (n<0) then
!!$ write(0,*) 'Error: IMSR: N<0'
base/serial/aux/zamsrx.f90
+2 -2
View File
@@ -36,13 +36,13 @@ subroutine zamsrx(n,x,indx,idir,flag)
use psb_serial_mod
implicit none
integer :: n,idir,flag
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
integer, allocatable :: iaux(:)
integer :: iret, info, lp, k,lswap, ixswap
complex(kind(1.d0)) :: swap
complex(psb_dpk_) :: swap
if (n<0) then
write(0,*) 'Error: DMSRX: N<0'
base/serial/aux/zasr.f90
+6 -6
View File
@@ -40,10 +40,10 @@ subroutine zasr(n,x,dir)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
! ..
! .. Local Scalars ..
complex(kind(1.d0)) :: xk, piv, xt
complex(psb_dpk_) :: xk, piv, xt
integer i, j, ilx, iux, istp, lpiv
integer n1, n2
@@ -316,9 +316,9 @@ contains
use zacmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: i,j
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) < x(j)) then
@@ -339,9 +339,9 @@ contains
use zacmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: i,j
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) > x(j)) then
base/serial/aux/zasrx.f90
+6 -6
View File
@@ -39,11 +39,11 @@ subroutine zasrx(n,x,indx,dir,flag)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir, flag
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
! ..
! .. Local Scalars ..
complex(kind(1.d0)) :: piv, xk, xt
complex(psb_dpk_) :: piv, xk, xt
integer i, j, ilx, iux, istp, lpiv
integer ixt, n1, n2
@@ -359,10 +359,10 @@ contains
use zacmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) < x(j)) then
@@ -386,10 +386,10 @@ contains
use zacmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) > x(j)) then
base/serial/aux/zlcmp_mod.f90
+9 -4
View File
@@ -30,6 +30,7 @@
!!$
!!$
module zlcmp_mod
use psb_const_mod
interface operator(<)
module procedure zllt
end interface
@@ -46,26 +47,30 @@ module zlcmp_mod
contains
function zllt(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zllt
zllt = (real(a)<real(b)).or.((real(a)==real(b)).and.(aimag(a)<aimag(b)))
end function zllt
function zlle(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zlle
zlle = (real(a)<real(b)).or.((real(a)==real(b)).and.(aimag(a)<=aimag(b)))
end function zlle
function zlgt(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zlgt
zlgt = (real(a)>real(b)).or.((real(a)==real(b)).and.(aimag(a)>aimag(b)))
end function zlgt
function zlge(a,b)
complex(kind(1.d0)), intent(in) :: a,b
use psb_const_mod
complex(psb_dpk_), intent(in) :: a,b
logical :: zlge
zlge = (real(a)>real(b)).or.((real(a)==real(b)).and.(aimag(a)>=aimag(b)))
base/serial/aux/zlsr.f90
+6 -6
View File
@@ -40,10 +40,10 @@ subroutine zlsr(n,x,dir)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
! ..
! .. Local Scalars ..
complex(kind(1.d0)) :: xk, piv, xt
complex(psb_dpk_) :: xk, piv, xt
integer i, j, ilx, iux, istp, lpiv
integer n1, n2
@@ -316,9 +316,9 @@ contains
use zlcmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: i,j
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) < x(j)) then
@@ -339,9 +339,9 @@ contains
use zlcmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: i,j
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) > x(j)) then
base/serial/aux/zlsrx.f90
+6 -6
View File
@@ -39,11 +39,11 @@ subroutine zlsrx(n,x,indx,dir,flag)
!
! .. Scalar Arguments ..
integer, intent(in) :: n, dir, flag
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
! ..
! .. Local Scalars ..
complex(kind(1.d0)) :: piv, xk, xt
complex(psb_dpk_) :: piv, xk, xt
integer i, j, ilx, iux, istp, lpiv
integer ixt, n1, n2
@@ -359,10 +359,10 @@ contains
use zlcmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) < x(j)) then
@@ -386,10 +386,10 @@ contains
use zlcmp_mod
implicit none
integer :: n
complex(kind(1.d0)) :: x(n)
complex(psb_dpk_) :: x(n)
integer :: indx(n)
integer :: i,j,ix
complex(kind(1.d0)) :: xx
complex(psb_dpk_) :: xx
do j=n-1,1,-1
if (x(j+1) > x(j)) then
base/serial/coo/dcoomm.f
+3 -2
View File
@@ -37,14 +37,15 @@ c
*
SUBROUTINE DCOOMM(TRANSA,M,K,N,ALPHA,DESCRA,AR,
* IA,JA,INFOA,B,LDB,BETA,C,LDC,WORK,LWORK,IERROR)
use psb_const_mod
C
C
C .. Scalar Arguments ..
DOUBLE PRECISION ALPHA, BETA
real(psb_dpk_) ALPHA, BETA
INTEGER K, LDB, LDC, M, N, LWORK, IERROR
CHARACTER TRANSA
C .. Array Arguments ..
DOUBLE PRECISION AR(*), B(LDB,*), C(LDC,*), WORK(*)
real(psb_dpk_) AR(*), B(LDB,*), C(LDC,*), WORK(*)
INTEGER IA(*), JA(*),INFOA(*)
CHARACTER DESCRA*11
C .. Local Scalars ..
base/serial/coo/dcoomv.f
+5 -4
View File
@@ -167,18 +167,19 @@ C
***********************************************************************
SUBROUTINE DCOOMV (TRANS,DIAG,M,N,ALPHA,AS,IA,JA,INFOA,X,
+ BETA,Y,WORK,IERROR)
use psb_const_mod
C .. Parameters ..
DOUBLE PRECISION ONE, ZERO
real(psb_dpk_) ONE, ZERO
PARAMETER (ONE=1.0D0,ZERO=0.0D0)
C .. Scalar Arguments ..
DOUBLE PRECISION ALPHA, BETA
real(psb_dpk_) ALPHA, BETA
INTEGER M, N, IERROR
CHARACTER DIAG, TRANS
C .. Array Arguments ..
DOUBLE PRECISION AS(*), WORK(*), X(*), Y(*)
real(psb_dpk_) AS(*), WORK(*), X(*), Y(*)
INTEGER IA(*), JA(*),infoa(*)
C .. Local Scalars ..
DOUBLE PRECISION ACC, TX
real(psb_dpk_) ACC, TX
INTEGER I, J, K, NNZ, IR, JC
LOGICAL SYM, TRA, UNI
C .. Executable Statements ..
base/serial/coo/dcoonrmi.f
+4 -3
View File
@@ -30,8 +30,9 @@ C POSSIBILITY OF SUCH DAMAGE.
C
C
C ... Compute Infinity norm for sparse matrix in CSR Format ...
DOUBLE PRECISION FUNCTION DCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
real(psb_dpk_) FUNCTION DCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+ INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER M,N, IERROR
@@ -39,10 +40,10 @@ C .. Scalar Arguments ..
C .. Array Arguments ..
INTEGER IA1(*),IA2(*),INFOA(*)
CHARACTER DESCRA*11
DOUBLE PRECISION A(*)
real(psb_dpk_) A(*)
C .. Local scalars ..
INTEGER I, J, K, NNZ
DOUBLE PRECISION NRMI, SUM
real(psb_dpk_) NRMI, SUM
IERROR=0
NRMI = 0.0
base/serial/coo/dcoorws.f
+3 -2
View File
@@ -31,6 +31,7 @@ C
C
SUBROUTINE DCOORWS(TRANS,M,N,DESCRA,A,IA1,IA2,
& INFOA,ROWSUM,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER M,N, IERROR
@@ -38,10 +39,10 @@ C .. Scalar Arguments ..
C .. Array Arguments ..
INTEGER IA1(*),IA2(*),INFOA(*)
CHARACTER DESCRA*11
DOUBLE PRECISION A(*), ROWSUM(*)
real(psb_dpk_) A(*), ROWSUM(*)
C .. Local scalars ..
INTEGER I, J, NNZ, K
DOUBLE PRECISION SUM
real(psb_dpk_) SUM
logical psb_lsame
external psb_lsame
base/serial/coo/dcoosm.f
+3 -2
View File
@@ -32,11 +32,12 @@ C
SUBROUTINE DCOOSM(TRANST,M,N,UNITD,D,ALPHA,DESCRA,A,IA,JA,INFOA,
* B,LDB,BETA,C,LDC,WORK,LWORK,IERROR)
use psb_error_mod
use psb_const_mod
IMPLICIT NONE
DOUBLE PRECISION ALPHA, BETA
real(psb_dpk_) ALPHA, BETA
INTEGER LDB, LDC, LWORK, M, N, IERROR
CHARACTER UNITD, TRANST
DOUBLE PRECISION A(*), B(LDB,*), C(LDC,*), D(*), WORK(*)
real(psb_dpk_) A(*), B(LDB,*), C(LDC,*), D(*), WORK(*)
INTEGER IA(*), JA(*), INFOA(*), INT_VAL(5)
CHARACTER DESCRA*11
INTEGER I, K, ERR_ACT
base/serial/coo/dcoosv.f
+4 -3
View File
@@ -35,14 +35,15 @@ C "right" place, i.e. the last in its row for Lower and the first
C for Upper.
C
SUBROUTINE DCOOSV (UPLO,TRANS,DIAG,N,AS,IA,JA,INFOA,B,X,IERROR)
use psb_const_mod
use psb_error_mod
DOUBLE PRECISION ZERO
real(psb_dpk_) ZERO
PARAMETER (ZERO=0.0D0)
INTEGER N,IERROR
CHARACTER DIAG, TRANS, UPLO
DOUBLE PRECISION AS(*), B(*), X(*)
real(psb_dpk_) AS(*), B(*), X(*)
INTEGER IA(*), JA(*),INFOA(*)
DOUBLE PRECISION ACC
real(psb_dpk_) ACC
INTEGER I, J, K, NNZ, II
LOGICAL LOW, TRA, UNI
integer :: debug_level, debug_unit
base/serial/coo/zcoomm.f
+3 -2
View File
@@ -36,14 +36,15 @@ c
*
SUBROUTINE ZCOOMM(TRANSA,M,K,N,ALPHA,DESCRA,AR,
* IA,JA,INFOA,B,LDB,BETA,C,LDC,WORK,LWORK)
use psb_const_mod
C
C
C .. Scalar Arguments ..
COMPLEX*16 ALPHA, BETA
complex(psb_dpk_) ALPHA, BETA
INTEGER K, LDB, LDC, M, N, LWORK
CHARACTER TRANSA
C .. Array Arguments ..
COMPLEX*16 AR(*), B(LDB,*), C(LDC,*), WORK(*)
complex(psb_dpk_) AR(*), B(LDB,*), C(LDC,*), WORK(*)
INTEGER IA(*), JA(*),INFOA(*)
CHARACTER DESCRA*11
C .. Local Scalars ..
base/serial/coo/zcoomv.f
+5 -4
View File
@@ -166,18 +166,19 @@ C
***********************************************************************
SUBROUTINE ZCOOMV (TRANS,DIAG,M,N,ALPHA,AS,IA,JA,INFOA,X,
+ BETA,Y,WORK)
use psb_const_mod
C .. Parameters ..
COMPLEX*16 ONE, ZERO
complex(psb_dpk_) ONE, ZERO
PARAMETER (ONE=(1.0D0,0.0D0),ZERO=(0.0D0,0.0D0))
C .. Scalar Arguments ..
COMPLEX*16 ALPHA, BETA
complex(psb_dpk_) ALPHA, BETA
INTEGER M, N
CHARACTER DIAG, TRANS
C .. Array Arguments ..
COMPLEX*16 AS(*), WORK(*), X(*), Y(*)
complex(psb_dpk_) AS(*), WORK(*), X(*), Y(*)
INTEGER IA(*), JA(*),infoa(*)
C .. Local Scalars ..
COMPLEX*16 ACC, TX
complex(psb_dpk_) ACC, TX
INTEGER I, J, K, NCOLA, NROWA,DUM, NNZ, IR, JC
LOGICAL SYM, TRA, UNI
C .. Executable Statements ..
base/serial/coo/zcoonrmi.f
+4 -3
View File
@@ -29,8 +29,9 @@ C ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
C POSSIBILITY OF SUCH DAMAGE.
C
C ... Compute Infinity norm for sparse matrix in CSR Format ...
DOUBLE PRECISION FUNCTION ZCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
real(psb_dpk_) FUNCTION ZCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+ INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER M,N, IERROR
@@ -38,10 +39,10 @@ C .. Scalar Arguments ..
C .. Array Arguments ..
INTEGER IA1(*),IA2(*),INFOA(*)
CHARACTER DESCRA*11
COMPLEX*16 A(*)
complex(psb_dpk_) A(*)
C .. Local scalars ..
INTEGER I, J, K, NNZ
DOUBLE PRECISION NRMI, SUM
real(psb_dpk_) NRMI, SUM
NRMI = 0.0
NNZ = INFOA(1)
base/serial/coo/zcoorws.f
+3 -2
View File
@@ -30,6 +30,7 @@ C POSSIBILITY OF SUCH DAMAGE.
C
SUBROUTINE ZCOORWS(TRANS,M,N,DESCRA,A,IA1,IA2,
& INFOA,ROWSUM,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER M,N, IERROR
@@ -37,10 +38,10 @@ C .. Scalar Arguments ..
C .. Array Arguments ..
INTEGER IA1(*),IA2(*),INFOA(*)
CHARACTER DESCRA*11
COMPLEX*16 A(*), ROWSUM(*)
complex(psb_dpk_) A(*), ROWSUM(*)
C .. Local scalars ..
INTEGER I, J, NNZ, K
DOUBLE PRECISION SUM
real(psb_dpk_) SUM
logical psb_lsame
external psb_lsame
base/serial/coo/zcoosm.f
+3 -2
View File
@@ -31,12 +31,13 @@ C
C
SUBROUTINE ZCOOSM(TRANST,M,N,UNITD,D,ALPHA,DESCRA,A,IA,JA,INFOA,
* B,LDB,BETA,C,LDC,WORK,LWORK,IERROR)
use psb_const_mod
use psb_error_mod
IMPLICIT NONE
COMPLEX*16 ALPHA, BETA
complex(psb_dpk_) ALPHA, BETA
INTEGER LDB, LDC, LWORK, M, N, IERROR
CHARACTER UNITD, TRANST
COMPLEX*16 A(*), B(LDB,*), C(LDC,*), D(*), WORK(*)
complex(psb_dpk_) A(*), B(LDB,*), C(LDC,*), D(*), WORK(*)
INTEGER IA(*), JA(*), INFOA(*), INT_VAL(5)
CHARACTER DESCRA*11
INTEGER I, K, ERR_ACT
base/serial/coo/zcoosv.f
+4 -3
View File
@@ -34,14 +34,15 @@ C "right" place, i.e. the last in its row for Lower and the first
C for Upper.
C
SUBROUTINE ZCOOSV (UPLO,TRANS,DIAG,N,AS,IA,JA,INFOA,B,X,IERROR)
use psb_const_mod
use psb_error_mod
COMPLEX*16 ZERO
complex(psb_dpk_) ZERO
PARAMETER (ZERO=(0.0D0,0.0D0))
INTEGER N,IERROR
CHARACTER DIAG, TRANS, UPLO
COMPLEX*16 AS(*), B(*), X(*)
complex(psb_dpk_) AS(*), B(*), X(*)
INTEGER IA(*), JA(*),INFOA(*)
COMPLEX*16 ACC
complex(psb_dpk_) ACC
INTEGER I, J, K, NNZ, II, JJ
LOGICAL LOW, TRA, UNI
integer :: debug_level, debug_unit
base/serial/csr/dcrnrmi.f
+4 -3
View File
@@ -30,8 +30,9 @@ C POSSIBILITY OF SUCH DAMAGE.
C
C
C ... Compute Infinity norm for sparse matrix in CSR Format ...
DOUBLE PRECISION FUNCTION DCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
real(psb_dpk_) FUNCTION DCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+ INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER M,N, IERROR
@@ -39,10 +40,10 @@ C .. Scalar Arguments ..
C .. Array Arguments ..
INTEGER IA1(*),IA2(*),INFOA(*)
CHARACTER DESCRA*11
DOUBLE PRECISION A(*)
real(psb_dpk_) A(*)
C .. Local scalars ..
INTEGER I, J
DOUBLE PRECISION NRMI, SUM
real(psb_dpk_) NRMI, SUM
IERROR=0
NRMI = 0.0
base/serial/csr/dcsrck.f
+2 -1
View File
@@ -89,12 +89,13 @@ C IERROR > 0 error in integrity check
SUBROUTINE DCSRCK(TRANS,M,N,DESCRA,A,IA1,IA2,
+ WORK,LWORK,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER LWORK,M, N, IERROR
CHARACTER TRANS
C .. Array Arguments ..
DOUBLE PRECISION A(*), WORK(*)
real(psb_dpk_) A(*), WORK(*)
INTEGER IA1(*), IA2(*)
CHARACTER DESCRA*11
C .. Local Scalars ..
base/serial/csr/dcsrmm.f
+3 -4
View File
@@ -37,14 +37,13 @@ c
*
SUBROUTINE DCSRMM(TRANSA,M,K,N,ALPHA,DESCRA,AR,
* JA,IA,B,LDB,BETA,C,LDC,WORK,LWORK,IERROR)
C
C
use psb_const_mod
C .. Scalar Arguments ..
DOUBLE PRECISION ALPHA, BETA
real(psb_dpk_) ALPHA, BETA
INTEGER K, LDB, LDC, M, N, LWORK,IERROR
CHARACTER TRANSA
C .. Array Arguments ..
DOUBLE PRECISION AR(*), B(LDB,*), C(LDC,*), WORK(*)
real(psb_dpk_) AR(*), B(LDB,*), C(LDC,*), WORK(*)
INTEGER IA(*), JA(*)
CHARACTER DESCRA*11
C .. Local Scalars ..
base/serial/csr/dcsrmv.f
+5 -4
View File
@@ -167,18 +167,19 @@ C
***********************************************************************
SUBROUTINE DCSRMV(TRANS,DIAG,M,N,ALPHA,AS,JA,IA,X,BETA,Y,
+ WORK,LWORK,IERROR)
use psb_const_mod
C .. Parameters ..
DOUBLE PRECISION ONE, ZERO
real(psb_dpk_) ONE, ZERO
PARAMETER (ONE=1.0D0,ZERO=0.0D0)
C .. Scalar Arguments ..
DOUBLE PRECISION ALPHA, BETA
real(psb_dpk_) ALPHA, BETA
INTEGER M, N,LWORK,IERROR
CHARACTER DIAG, TRANS
C .. Array Arguments ..
DOUBLE PRECISION AS(*), WORK(*), X(*), Y(*)
real(psb_dpk_) AS(*), WORK(*), X(*), Y(*)
INTEGER IA(*), JA(*)
C .. Local Scalars ..
DOUBLE PRECISION ACC
real(psb_dpk_) ACC
INTEGER I, J, K, NCOLA, NROWA
LOGICAL SYM, TRA, UNI
C .. Executable Statements ..
base/serial/csr/dcsrmv2.f
+5 -4
View File
@@ -167,20 +167,21 @@ C
***********************************************************************
SUBROUTINE DCSRMV2(TRANS,DIAG,M,N,ALPHA,AS,JA,IA,X,LDX,
+ BETA,Y,LDY, WORK,LWORK,IERROR)
use psb_const_mod
integer nb
parameter (nb=2)
C .. Parameters ..
DOUBLE PRECISION ONE, ZERO
real(psb_dpk_) ONE, ZERO
PARAMETER (ONE=1.0D0,ZERO=0.0D0)
C .. Scalar Arguments ..
DOUBLE PRECISION ALPHA, BETA
real(psb_dpk_) ALPHA, BETA
INTEGER M, N,LWORK,IERROR,ldx,ldy
CHARACTER DIAG, TRANS
C .. Array Arguments ..
DOUBLE PRECISION AS(*), WORK(*), X(LDX,NB), Y(LDY,NB)
real(psb_dpk_) AS(*), WORK(*), X(LDX,NB), Y(LDY,NB)
INTEGER IA(*), JA(*)
C .. Local Scalars ..
DOUBLE PRECISION ACC(nb)
real(psb_dpk_) ACC(nb)
INTEGER I, J, K, NCOLA, NROWA
LOGICAL SYM, TRA, UNI
C .. Executable Statements ..
base/serial/csr/dcsrmv3.f
+5 -4
View File
@@ -167,20 +167,21 @@ C
***********************************************************************
SUBROUTINE DCSRMV3(TRANS,DIAG,M,N,ALPHA,AS,JA,IA,X,LDX,
+ BETA,Y,LDY, WORK,LWORK,IERROR)
use psb_const_mod
integer nb
parameter (nb=3)
C .. Parameters ..
DOUBLE PRECISION ONE, ZERO
real(psb_dpk_) ONE, ZERO
PARAMETER (ONE=1.0D0,ZERO=0.0D0)
C .. Scalar Arguments ..
DOUBLE PRECISION ALPHA, BETA
real(psb_dpk_) ALPHA, BETA
INTEGER M, N,LWORK,IERROR,ldx,ldy
CHARACTER DIAG, TRANS
C .. Array Arguments ..
DOUBLE PRECISION AS(*), WORK(*), X(LDX,NB), Y(LDY,NB)
real(psb_dpk_) AS(*), WORK(*), X(LDX,NB), Y(LDY,NB)
INTEGER IA(*), JA(*)
C .. Local Scalars ..
DOUBLE PRECISION ACC(nb)
real(psb_dpk_) ACC(nb)
INTEGER I, J, K, NCOLA, NROWA
LOGICAL SYM, TRA, UNI
C .. Executable Statements ..
base/serial/csr/dcsrmv4.f
+5 -4
View File
@@ -167,20 +167,21 @@ C
***********************************************************************
SUBROUTINE DCSRMV4(TRANS,DIAG,M,N,ALPHA,AS,JA,IA,X,LDX,
+ BETA,Y,LDY, WORK,LWORK,IERROR)
use psb_const_mod
integer nb
parameter (nb=4)
C .. Parameters ..
DOUBLE PRECISION ONE, ZERO
real(psb_dpk_) ONE, ZERO
PARAMETER (ONE=1.0D0,ZERO=0.0D0)
C .. Scalar Arguments ..
DOUBLE PRECISION ALPHA, BETA
real(psb_dpk_) ALPHA, BETA
INTEGER M, N,LWORK,IERROR,ldx,ldy
CHARACTER DIAG, TRANS
C .. Array Arguments ..
DOUBLE PRECISION AS(*), WORK(*), X(LDX,NB), Y(LDY,NB)
real(psb_dpk_) AS(*), WORK(*), X(LDX,NB), Y(LDY,NB)
INTEGER IA(*), JA(*)
C .. Local Scalars ..
DOUBLE PRECISION ACC(nb)
real(psb_dpk_) ACC(nb)
INTEGER I, J, K, NCOLA, NROWA
LOGICAL SYM, TRA, UNI
C .. Executable Statements ..
base/serial/csr/dcsrrws.f
+2 -1
View File
@@ -31,6 +31,7 @@ C
C
SUBROUTINE DCSRRWS(TRANS,M,N,DESCRA,A,IA1,IA2,
& INFOA,ROWSUM,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER M,N, IERROR
@@ -38,7 +39,7 @@ C .. Scalar Arguments ..
C .. Array Arguments ..
INTEGER IA1(*),IA2(*),INFOA(*)
CHARACTER DESCRA*11
DOUBLE PRECISION A(*), ROWSUM(*)
real(psb_dpk_) A(*), ROWSUM(*)
C .. Local scalars ..
INTEGER I, J
base/serial/csr/dcsrsm.f
+3 -2
View File
@@ -31,10 +31,11 @@ C
C
SUBROUTINE DCSRSM(TRANST,M,N,UNITD,D,ALPHA,DESCRA,A,JA,IA,
* B,LDB,BETA,C,LDC,WORK,LWORK,IERROR)
DOUBLE PRECISION ALPHA, BETA
use psb_const_mod
real(psb_dpk_) ALPHA, BETA
INTEGER LDB, LDC, LWORK, M, N, IERROR
CHARACTER UNITD, TRANST
DOUBLE PRECISION A(*), B(LDB,*), C(LDC,*), D(*), WORK(*)
real(psb_dpk_) A(*), B(LDB,*), C(LDC,*), D(*), WORK(*)
INTEGER IA(*), JA(*)
CHARACTER DESCRA*11
INTEGER I, K
base/serial/csr/dcsrsv.f
+4 -3
View File
@@ -30,13 +30,14 @@ C POSSIBILITY OF SUCH DAMAGE.
C
C
SUBROUTINE DCSRSV(UPLO,TRANS,DIAG,N,AS,JA,IA,B,X,IERROR)
DOUBLE PRECISION ZERO
use psb_const_mod
real(psb_dpk_) ZERO
PARAMETER (ZERO=0.0D0)
INTEGER N, IERROR
CHARACTER DIAG, TRANS, UPLO
DOUBLE PRECISION AS(*), B(*), X(*)
real(psb_dpk_) AS(*), B(*), X(*)
INTEGER IA(*), JA(*)
DOUBLE PRECISION ACC
real(psb_dpk_) ACC
INTEGER I, J, K
LOGICAL LOW, TRA, UNI
UNI = (DIAG.EQ.'U')
base/serial/csr/zcrnrmi.f
+4 -3
View File
@@ -28,8 +28,9 @@ C CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
C ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
C POSSIBILITY OF SUCH DAMAGE.
C
DOUBLE PRECISION FUNCTION ZCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
real(psb_dpk_) FUNCTION ZCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
& INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER M,N, IERROR
@@ -37,10 +38,10 @@ C .. Scalar Arguments ..
C .. Array Arguments ..
INTEGER IA1(*),IA2(*),INFOA(*)
CHARACTER DESCRA*11
COMPLEX*16 A(*)
complex(psb_dpk_) A(*)
C .. Local scalars ..
INTEGER I, J
DOUBLE PRECISION NRMI, SUM
real(psb_dpk_) NRMI, SUM
NRMI = 0.D0
DO I = 1, M
base/serial/csr/zcsrck.f
+2 -1
View File
@@ -89,12 +89,13 @@ C IERROR > 0 error in integrity check
SUBROUTINE ZCSRCK(TRANS,M,N,DESCRA,A,IA1,IA2,
+ WORK,LWORK,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER LWORK,M, N, IERROR
CHARACTER TRANS
C .. Array Arguments ..
complex(kind(1.d0)) A(*), WORK(*)
complex(psb_dpk_) A(*), WORK(*)
INTEGER IA1(*), IA2(*)
CHARACTER DESCRA*11
C .. Local Scalars ..
base/serial/csr/zcsrmm.f
+3 -4
View File
@@ -136,14 +136,13 @@ C Unchanged on exit.
C
SUBROUTINE ZCSRMM(TRANSA,M,K,N,ALPHA,DESCRA,AR,
* JA,IA,B,LDB,BETA,C,LDC,WORK,LWORK)
C
C
use psb_const_mod
C .. Scalar Arguments ..
COMPLEX*16 ALPHA, BETA
complex(psb_dpk_) ALPHA, BETA
INTEGER K, LDB, LDC, M, N, LWORK
CHARACTER TRANSA
C .. Array Arguments ..
COMPLEX*16 AR(*), B(LDB,*), C(LDC,*), WORK(*)
complex(psb_dpk_) AR(*), B(LDB,*), C(LDC,*), WORK(*)
INTEGER IA(*), JA(*)
CHARACTER DESCRA*11
C .. Local Scalars ..
base/serial/csr/zcsrrws.f
+3 -2
View File
@@ -30,6 +30,7 @@ C POSSIBILITY OF SUCH DAMAGE.
C
SUBROUTINE ZCSRRWS(TRANS,M,N,DESCRA,A,IA1,IA2,
& INFOA,ROWSUM,IERROR)
use psb_const_mod
IMPLICIT NONE
C .. Scalar Arguments ..
INTEGER M,N, IERROR
@@ -37,10 +38,10 @@ C .. Scalar Arguments ..
C .. Array Arguments ..
INTEGER IA1(*),IA2(*),INFOA(*)
CHARACTER DESCRA*11
COMPLEX*16 A(*), ROWSUM(*)
complex(psb_dpk_) A(*), ROWSUM(*)
C .. Local scalars ..
INTEGER I, J
DOUBLE PRECISION SUM
real(psb_dpk_) SUM
IF (TRANS.EQ.'N') THEN
DO I = 1, M
base/serial/csr/zcsrsm.f
+3 -2
View File
@@ -31,10 +31,11 @@ C
C
SUBROUTINE ZCSRSM(TRANST,M,N,UNITD,D,ALPHA,DESCRA,A,JA,IA,
* B,LDB,BETA,C,LDC,WORK,LWORK)
COMPLEX*16 ALPHA, BETA
use psb_const_mod
complex(psb_dpk_) ALPHA, BETA
INTEGER LDB, LDC, LWORK, M, N
CHARACTER UNITD, TRANST
COMPLEX*16 A(*), B(LDB,*), C(LDC,*), D(*), WORK(*)
complex(psb_dpk_) A(*), B(LDB,*), C(LDC,*), D(*), WORK(*)
INTEGER IA(*), JA(*)
CHARACTER DESCRA*11
INTEGER I, K
base/serial/csr/zsrmv.f
+5 -4
View File
@@ -178,18 +178,19 @@ C
***********************************************************************
C
SUBROUTINE ZSRMV (TRANS,DIAG,M,N,ALPHA,AS,JA,IA,X,BETA,Y,WORK)
use psb_const_mod
C .. Parameters ..
COMPLEX*16 ONE, ZERO
complex(psb_dpk_) ONE, ZERO
PARAMETER (ONE=(1.0D0, 0.0D0), ZERO=(0.0D0, 0.0D0))
C .. Scalar Arguments ..
COMPLEX*16 ALPHA, BETA
complex(psb_dpk_) ALPHA, BETA
INTEGER M, N
CHARACTER DIAG, TRANS
C .. Array Arguments ..
COMPLEX*16 AS(*), WORK(*), X(*), Y(*)
complex(psb_dpk_) AS(*), WORK(*), X(*), Y(*)
INTEGER IA(*), JA(*)
C .. Local Scalars ..
COMPLEX*16 ACC
complex(psb_dpk_) ACC
INTEGER I, J, K, NCOLA, NROWA,DUM
LOGICAL SYM, TRA, COTRA, UNI
C .. Executable Statements ..
base/serial/csr/zsrsv.f
+4 -3
View File
@@ -29,13 +29,14 @@ C ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
C POSSIBILITY OF SUCH DAMAGE.
C
SUBROUTINE ZSRSV (UPLO,TRANS,DIAG,N,AS,JA,IA,B,X)
COMPLEX*16 ZERO
use psb_const_mod
complex(psb_dpk_) ZERO
PARAMETER (ZERO = (0.0D0, 0.0D0))
INTEGER N
CHARACTER DIAG, TRANS, UPLO
COMPLEX*16 AS(*), B(*), X(*)
complex(psb_dpk_) AS(*), B(*), X(*)
INTEGER IA(*), JA(*)
COMPLEX*16 ACC
complex(psb_dpk_) ACC
INTEGER I, J, K
LOGICAL LOW, TRA, COTRA, UNI
UNI = (DIAG.EQ.'U')

Some files were not shown because too many files have changed in this diff Show More