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

psblas3:

Browse Source 
base/Makefile
 base/comm/psb_cgather.f90
 base/comm/psb_chalo.f90
 base/comm/psb_covrl.f90
 base/comm/psb_cscatter.F90
 base/comm/psb_dgather.f90
 base/comm/psb_dhalo.f90
 base/comm/psb_dovrl.f90
 base/comm/psb_dscatter.F90
 base/comm/psb_igather.f90
 base/comm/psb_ihalo.f90
 base/comm/psb_iovrl.f90
 base/comm/psb_iscatter.F90
 base/comm/psb_sgather.f90
 base/comm/psb_shalo.f90
 base/comm/psb_sovrl.f90
 base/comm/psb_sscatter.F90
 base/comm/psb_zgather.f90
 base/comm/psb_zhalo.f90
 base/comm/psb_zovrl.f90
 base/comm/psb_zscatter.F90
 base/modules/Makefile
 base/modules/psb_serial_mod.f90
 base/modules/psb_sparse_mod.f90
 base/psblas/psb_camax.f90
 base/psblas/psb_casum.f90
 base/psblas/psb_caxpby.f90
 base/psblas/psb_cdot.f90
 base/psblas/psb_cnrmi.f90
 base/psblas/psb_cspmm.f90
 base/psblas/psb_cspsm.f90
 base/psblas/psb_damax.f90
 base/psblas/psb_dasum.f90
 base/psblas/psb_daxpby.f90
 base/psblas/psb_ddot.f90
 base/psblas/psb_dspmm.f90
 base/psblas/psb_dspnrm1.f90
 base/psblas/psb_dspsm.f90
 base/psblas/psb_samax.f90
 base/psblas/psb_sasum.f90
 base/psblas/psb_saxpby.f90
 base/psblas/psb_sdot.f90
 base/psblas/psb_sspmm.f90
 base/psblas/psb_sspsm.f90
 base/psblas/psb_sxdot.f90
 base/psblas/psb_zamax.f90
 base/psblas/psb_zasum.f90
 base/psblas/psb_zaxpby.f90
 base/psblas/psb_zdot.f90
 base/psblas/psb_zspmm.f90
 base/psblas/psb_zspsm.f90
 base/serial/psb_cnumbmm.f90
 base/serial/psb_crwextd.f90
 base/serial/psb_csymbmm.f90
 base/serial/psb_dnumbmm.f90
 base/serial/psb_drwextd.f90
 base/serial/psb_dsymbmm.f90
 base/serial/psb_snumbmm.f90
 base/serial/psb_srwextd.f90
 base/serial/psb_ssymbmm.f90
 base/serial/psb_znumbmm.f90
 base/serial/psb_zrwextd.f90
 base/serial/psb_zsymbmm.f90
 base/tools/psb_callc.f90
 base/tools/psb_casb.f90
 base/tools/psb_ccdbldext.F90
 base/tools/psb_cd_inloc.f90
 base/tools/psb_cd_lstext.f90
 base/tools/psb_cd_reinit.f90
 base/tools/psb_cd_set_bld.f90
 base/tools/psb_cd_switch_ovl_indxmap.f90
 base/tools/psb_cdals.f90
 base/tools/psb_cdalv.f90
 base/tools/psb_cdcpy.F90
 base/tools/psb_cdins.f90
 base/tools/psb_cdprt.f90
 base/tools/psb_cdren.f90
 base/tools/psb_cdrep.f90
 base/tools/psb_cfree.f90
 base/tools/psb_cins.f90
 base/tools/psb_cspalloc.f90
 base/tools/psb_cspasb.f90
 base/tools/psb_cspfree.f90
 base/tools/psb_csphalo.F90
 base/tools/psb_cspins.f90
 base/tools/psb_csprn.f90
 base/tools/psb_dallc.f90
 base/tools/psb_dasb.f90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_dfree.f90
 base/tools/psb_dins.f90
 base/tools/psb_dspalloc.f90
 base/tools/psb_dspasb.f90
 base/tools/psb_dspfree.f90
 base/tools/psb_dsphalo.F90
 base/tools/psb_dspins.f90
 base/tools/psb_dsprn.f90
 base/tools/psb_get_overlap.f90
 base/tools/psb_glob_to_loc.f90
 base/tools/psb_ialloc.f90
 base/tools/psb_iasb.f90
 base/tools/psb_icdasb.F90
 base/tools/psb_ifree.f90
 base/tools/psb_iins.f90
 base/tools/psb_linmap.f90
 base/tools/psb_loc_to_glob.f90
 base/tools/psb_map.f90
 base/tools/psb_sallc.f90
 base/tools/psb_sasb.f90
 base/tools/psb_scdbldext.F90
 base/tools/psb_sfree.f90
 base/tools/psb_sins.f90
 base/tools/psb_sspalloc.f90
 base/tools/psb_sspasb.f90
 base/tools/psb_sspfree.f90
 base/tools/psb_ssphalo.F90
 base/tools/psb_sspins.f90
 base/tools/psb_ssprn.f90
 base/tools/psb_zallc.f90
 base/tools/psb_zasb.f90
 base/tools/psb_zcdbldext.F90
 base/tools/psb_zfree.f90
 base/tools/psb_zins.f90
 base/tools/psb_zspalloc.f90
 base/tools/psb_zspasb.f90
 base/tools/psb_zspfree.f90
 base/tools/psb_zsphalo.F90
 base/tools/psb_zspins.f90
 base/tools/psb_zsprn.f90
 krylov/Makefile
 krylov/psb_base_inner_krylov_mod.f90
 krylov/psb_c_inner_krylov_mod.f90
 krylov/psb_cbicg.f90
 krylov/psb_ccg.f90
 krylov/psb_ccgs.f90
 krylov/psb_ccgstab.f90
 krylov/psb_ccgstabl.f90
 krylov/psb_ckrylov.f90
 krylov/psb_crgmres.f90
 krylov/psb_d_inner_krylov_mod.f90
 krylov/psb_dbicg.f90
 krylov/psb_dcg.F90
 krylov/psb_dcgs.f90
 krylov/psb_dcgstab.F90
 krylov/psb_dcgstabl.f90
 krylov/psb_dkrylov.f90
 krylov/psb_drgmres.f90
 krylov/psb_krylov_mod.f90
 krylov/psb_s_inner_krylov_mod.f90
 krylov/psb_sbicg.f90
 krylov/psb_scg.F90
 krylov/psb_scgs.f90
 krylov/psb_scgstab.F90
 krylov/psb_scgstabl.f90
 krylov/psb_skrylov.f90
 krylov/psb_srgmres.f90
 krylov/psb_z_inner_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_zkrylov.f90
 krylov/psb_zrgmres.f90
 opt/psb_d_ell_impl.f90
 opt/psb_d_rsb_mat_mod.F90
 prec/Makefile
 prec/psb_c_base_prec_mod.f90
 prec/psb_c_bjacprec.f90
 prec/psb_c_diagprec.f90
 prec/psb_c_nullprec.f90
 prec/psb_c_prec_type.f90
 prec/psb_cilu_fct.f90
 prec/psb_cprecbld.f90
 prec/psb_cprecinit.f90
 prec/psb_cprecset.f90
 prec/psb_d_base_prec_mod.f90
 prec/psb_d_bjacprec.f90
 prec/psb_d_diagprec.f90
 prec/psb_d_nullprec.f90
 prec/psb_d_prec_type.f90
 prec/psb_dilu_fct.f90
 prec/psb_dprecbld.f90
 prec/psb_dprecinit.f90
 prec/psb_dprecset.f90
 prec/psb_prec_const_mod.f90
 prec/psb_prec_mod.f90
 prec/psb_s_base_prec_mod.f90
 prec/psb_s_bjacprec.f90
 prec/psb_s_diagprec.f90
 prec/psb_s_nullprec.f90
 prec/psb_s_prec_type.f90
 prec/psb_silu_fct.f90
 prec/psb_sprecbld.f90
 prec/psb_sprecinit.f90
 prec/psb_sprecset.f90
 prec/psb_z_base_prec_mod.f90
 prec/psb_z_bjacprec.f90
 prec/psb_z_diagprec.f90
 prec/psb_z_nullprec.f90
 prec/psb_z_prec_type.f90
 prec/psb_zilu_fct.f90
 prec/psb_zprecbld.f90
 prec/psb_zprecinit.f90
 prec/psb_zprecset.f90
 test/fileread/cf_sample.f90
 test/fileread/df_sample.f90
 test/fileread/getp.f90
 test/fileread/sf_sample.f90
 test/fileread/zf_sample.f90
 test/newfmt/ppde.F90
 test/newfmt/spde.f90
 test/pargen/ppde.f90
 test/pargen/spde.f90
 test/serial/d_coo_matgen.f90
 test/serial/d_matgen.f90
 test/serial/psb_d_cxx_impl.f90
 test/serial/psb_d_cyy_impl.f90
 test/torture/psb_c_mvsv_tester.f90
 test/torture/psb_d_mvsv_tester.f90
 test/torture/psb_s_mvsv_tester.f90
 test/torture/psb_z_mvsv_tester.f90
 test/torture/psbtf.f90
 test/util/dhb2mm.f90
 test/util/dmm2hb.f90
 test/util/zhb2mm.f90
 test/util/zmm2hb.f90
 util/psb_hbio_impl.f90
 util/psb_hbio_mod.f90
 util/psb_mat_dist_impl.f90
 util/psb_mat_dist_mod.f90
 util/psb_metispart_mod.F90
 util/psb_mmio_impl.f90
 util/psb_mmio_mod.f90


Changed psb_sparse_mod into psb_base_mod, added psb_csprt. This allows
the cbind stuff to be shared between version 2 and version 3.
This commit is contained in:
Salvatore Filippone
2011-03-21 15:54:31 +00:00
parent 9993b41288
commit 324830ef7b
234 changed files with 1031 additions and 923 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/serial/d_coo_matgen.f90
+9 -9
View File
@@ -1,6 +1,6 @@
!
program d_coo_matgen
use psb_sparse_mod
use psb_base_mod
!!$ use psb_prec_mod
!!$ use psb_krylov_mod
use psb_d_base_mat_mod
@@ -137,7 +137,7 @@ contains
!
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
!
use psb_sparse_mod
use psb_base_mod
!!$ use psb_d_base_mat_mod
use psb_d_csr_mat_mod
implicit none
@@ -434,43 +434,43 @@ end program d_coo_matgen
! functions parametrizing the differential equation
!
function a1(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a1
real(psb_dpk_) :: x,y,z
a1=1.d0
end function a1
function a2(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a2
real(psb_dpk_) :: x,y,z
a2=2.d1*y
end function a2
function a3(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a3
real(psb_dpk_) :: x,y,z
a3=1.d0
end function a3
function a4(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a4
real(psb_dpk_) :: x,y,z
a4=1.d0
end function a4
function b1(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b1
real(psb_dpk_) :: x,y,z
b1=1.d0
end function b1
function b2(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b2
real(psb_dpk_) :: x,y,z
b2=1.d0
end function b2
function b3(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b3
real(psb_dpk_) :: x,y,z
b3=1.d0
test/serial/d_matgen.f90
+9 -9
View File
@@ -1,6 +1,6 @@
!
program d_matgen
use psb_sparse_mod
use psb_base_mod
use psb_d_base_mat_mod
use psb_d_csr_mat_mod
use psb_d_mat_mod
@@ -150,7 +150,7 @@ contains
!
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
!
use psb_sparse_mod
use psb_base_mod
implicit none
integer :: idim
integer, parameter :: nb=20
@@ -470,43 +470,43 @@ end program d_matgen
! functions parametrizing the differential equation
!
function a1(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a1
real(psb_dpk_) :: x,y,z
a1=1.d0
end function a1
function a2(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a2
real(psb_dpk_) :: x,y,z
a2=2.d1*y
end function a2
function a3(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a3
real(psb_dpk_) :: x,y,z
a3=1.d0
end function a3
function a4(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a4
real(psb_dpk_) :: x,y,z
a4=1.d0
end function a4
function b1(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b1
real(psb_dpk_) :: x,y,z
b1=1.d0
end function b1
function b2(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b2
real(psb_dpk_) :: x,y,z
b2=1.d0
end function b2
function b3(x,y,z)
use psb_sparse_mod, only : psb_dpk_
use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b3
real(psb_dpk_) :: x,y,z
b3=1.d0
test/serial/psb_d_cxx_impl.f90
+33 -33
View File
@@ -13,7 +13,7 @@
! == ===================================
subroutine psb_d_cxx_csmv(alpha,a,x,beta,y,info,trans)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csmv
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
@@ -310,7 +310,7 @@ contains
end subroutine psb_d_cxx_csmv
subroutine psb_d_cxx_csmm(alpha,a,x,beta,y,info,trans)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csmm
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
@@ -611,7 +611,7 @@ end subroutine psb_d_cxx_csmm
subroutine psb_d_cxx_cssv(alpha,a,x,beta,y,info,trans)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_cssv
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
@@ -826,7 +826,7 @@ end subroutine psb_d_cxx_cssv
subroutine psb_d_cxx_cssm(alpha,a,x,beta,y,info,trans)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_cssm
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
@@ -1041,7 +1041,7 @@ contains
end subroutine psb_d_cxx_cssm
function psb_d_cxx_csnmi(a) result(res)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csnmi
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
@@ -1069,7 +1069,7 @@ end function psb_d_cxx_csnmi
function psb_d_cxx_csnm1(a) result(res)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csnm1
implicit none
@@ -1106,7 +1106,7 @@ function psb_d_cxx_csnm1(a) result(res)
end function psb_d_cxx_csnm1
subroutine psb_d_cxx_rowsum(d,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_rowsum
class(psb_d_cxx_sparse_mat), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
@@ -1154,7 +1154,7 @@ subroutine psb_d_cxx_rowsum(d,a)
end subroutine psb_d_cxx_rowsum
subroutine psb_d_cxx_arwsum(d,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_arwsum
class(psb_d_cxx_sparse_mat), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
@@ -1202,7 +1202,7 @@ subroutine psb_d_cxx_arwsum(d,a)
end subroutine psb_d_cxx_arwsum
subroutine psb_d_cxx_colsum(d,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_colsum
class(psb_d_cxx_sparse_mat), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
@@ -1253,7 +1253,7 @@ subroutine psb_d_cxx_colsum(d,a)
end subroutine psb_d_cxx_colsum
subroutine psb_d_cxx_aclsum(d,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_aclsum
class(psb_d_cxx_sparse_mat), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
@@ -1305,7 +1305,7 @@ end subroutine psb_d_cxx_aclsum
subroutine psb_d_cxx_get_diag(a,d,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_get_diag
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
@@ -1353,7 +1353,7 @@ end subroutine psb_d_cxx_get_diag
subroutine psb_d_cxx_scal(d,a,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_scal
implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a
@@ -1395,7 +1395,7 @@ end subroutine psb_d_cxx_scal
subroutine psb_d_cxx_scals(d,a,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_scals
implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a
@@ -1444,7 +1444,7 @@ end subroutine psb_d_cxx_scals
subroutine psb_d_cxx_reallocate_nz(nz,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_reallocate_nz
implicit none
integer, intent(in) :: nz
@@ -1479,7 +1479,7 @@ subroutine psb_d_cxx_reallocate_nz(nz,a)
end subroutine psb_d_cxx_reallocate_nz
subroutine psb_d_cxx_mold(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_mold
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
@@ -1508,7 +1508,7 @@ subroutine psb_d_cxx_mold(a,b,info)
end subroutine psb_d_cxx_mold
subroutine psb_d_cxx_allocate_mnnz(m,n,a,nz)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_allocate_mnnz
implicit none
integer, intent(in) :: m,n
@@ -1571,7 +1571,7 @@ end subroutine psb_d_cxx_allocate_mnnz
subroutine psb_d_cxx_csgetptn(imin,imax,a,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csgetptn
implicit none
@@ -1738,7 +1738,7 @@ end subroutine psb_d_cxx_csgetptn
subroutine psb_d_cxx_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csgetrow
implicit none
@@ -1910,7 +1910,7 @@ end subroutine psb_d_cxx_csgetrow
subroutine psb_d_cxx_csgetblk(imin,imax,a,b,info,&
& jmin,jmax,iren,append,rscale,cscale)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csgetblk
implicit none
@@ -1968,7 +1968,7 @@ end subroutine psb_d_cxx_csgetblk
subroutine psb_d_cxx_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csput
implicit none
@@ -2250,7 +2250,7 @@ end subroutine psb_d_cxx_csput
subroutine psb_d_cxx_reinit(a,clear)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_reinit
implicit none
@@ -2299,7 +2299,7 @@ subroutine psb_d_cxx_reinit(a,clear)
end subroutine psb_d_cxx_reinit
subroutine psb_d_cxx_trim(a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_trim
implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a
@@ -2332,7 +2332,7 @@ subroutine psb_d_cxx_trim(a)
end subroutine psb_d_cxx_trim
subroutine psb_d_cxx_print(iout,a,iv,eirs,eics,head,ivr,ivc)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_print
implicit none
@@ -2414,7 +2414,7 @@ end subroutine psb_d_cxx_print
subroutine psb_d_cp_cxx_from_coo(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cp_cxx_from_coo
implicit none
@@ -2441,7 +2441,7 @@ end subroutine psb_d_cp_cxx_from_coo
subroutine psb_d_cp_cxx_to_coo(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cp_cxx_to_coo
implicit none
@@ -2481,7 +2481,7 @@ end subroutine psb_d_cp_cxx_to_coo
subroutine psb_d_mv_cxx_to_coo(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_mv_cxx_to_coo
implicit none
@@ -2523,7 +2523,7 @@ end subroutine psb_d_mv_cxx_to_coo
subroutine psb_d_mv_cxx_from_coo(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_mv_cxx_from_coo
implicit none
@@ -2610,7 +2610,7 @@ end subroutine psb_d_mv_cxx_from_coo
subroutine psb_d_mv_cxx_to_fmt(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_mv_cxx_to_fmt
implicit none
@@ -2648,7 +2648,7 @@ end subroutine psb_d_mv_cxx_to_fmt
subroutine psb_d_cp_cxx_to_fmt(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cp_cxx_to_fmt
implicit none
@@ -2686,7 +2686,7 @@ end subroutine psb_d_cp_cxx_to_fmt
subroutine psb_d_mv_cxx_from_fmt(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_mv_cxx_from_fmt
implicit none
@@ -2725,7 +2725,7 @@ end subroutine psb_d_mv_cxx_from_fmt
subroutine psb_d_cp_cxx_from_fmt(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cp_cxx_from_fmt
implicit none
@@ -2761,7 +2761,7 @@ end subroutine psb_d_cp_cxx_from_fmt
subroutine psb_d_cxx_cp_from(a,b)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_cp_from
implicit none
@@ -2800,7 +2800,7 @@ subroutine psb_d_cxx_cp_from(a,b)
end subroutine psb_d_cxx_cp_from
subroutine psb_d_cxx_mv_from(a,b)
use psb_sparse_mod
use psb_base_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_mv_from
implicit none
test/serial/psb_d_cyy_impl.f90
+33 -33
View File
@@ -2,7 +2,7 @@
! A minimal, non functional implementation of a matrix type module.
!
subroutine psb_d_cyy_csmv(alpha,a,x,beta,y,info,trans)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_csmv
implicit none
class(psb_d_cyy_sparse_mat), intent(in) :: a
@@ -25,7 +25,7 @@ subroutine psb_d_cyy_csmv(alpha,a,x,beta,y,info,trans)
end subroutine psb_d_cyy_csmv
subroutine psb_d_cyy_csmm(alpha,a,x,beta,y,info,trans)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_csmm
implicit none
class(psb_d_cyy_sparse_mat), intent(in) :: a
@@ -46,7 +46,7 @@ subroutine psb_d_cyy_csmm(alpha,a,x,beta,y,info,trans)
end subroutine psb_d_cyy_csmm
subroutine psb_d_cyy_cssv(alpha,a,x,beta,y,info,trans)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_cssv
implicit none
class(psb_d_cyy_sparse_mat), intent(in) :: a
@@ -68,7 +68,7 @@ subroutine psb_d_cyy_cssv(alpha,a,x,beta,y,info,trans)
end subroutine psb_d_cyy_cssv
subroutine psb_d_cyy_cssm(alpha,a,x,beta,y,info,trans)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_cssm
implicit none
class(psb_d_cyy_sparse_mat), intent(in) :: a
@@ -91,7 +91,7 @@ subroutine psb_d_cyy_cssm(alpha,a,x,beta,y,info,trans)
end subroutine psb_d_cyy_cssm
function psb_d_cyy_csnmi(a) result(res)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_csnmi
implicit none
class(psb_d_cyy_sparse_mat), intent(in) :: a
@@ -107,7 +107,7 @@ function psb_d_cyy_csnmi(a) result(res)
end function psb_d_cyy_csnmi
function psb_d_cyy_csnm1(a) result(res)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_csnm1
implicit none
@@ -126,7 +126,7 @@ function psb_d_cyy_csnm1(a) result(res)
end function psb_d_cyy_csnm1
subroutine psb_d_cyy_rowsum(d,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_rowsum
class(psb_d_cyy_sparse_mat), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
@@ -142,7 +142,7 @@ subroutine psb_d_cyy_rowsum(d,a)
end subroutine psb_d_cyy_rowsum
subroutine psb_d_cyy_arwsum(d,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_arwsum
class(psb_d_cyy_sparse_mat), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
@@ -157,7 +157,7 @@ subroutine psb_d_cyy_arwsum(d,a)
end subroutine psb_d_cyy_arwsum
subroutine psb_d_cyy_colsum(d,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_colsum
class(psb_d_cyy_sparse_mat), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
@@ -172,7 +172,7 @@ subroutine psb_d_cyy_colsum(d,a)
end subroutine psb_d_cyy_colsum
subroutine psb_d_cyy_aclsum(d,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_aclsum
class(psb_d_cyy_sparse_mat), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
@@ -187,7 +187,7 @@ subroutine psb_d_cyy_aclsum(d,a)
end subroutine psb_d_cyy_aclsum
subroutine psb_d_cyy_get_diag(a,d,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_get_diag
implicit none
class(psb_d_cyy_sparse_mat), intent(in) :: a
@@ -201,7 +201,7 @@ subroutine psb_d_cyy_get_diag(a,d,info)
end subroutine psb_d_cyy_get_diag
subroutine psb_d_cyy_scal(d,a,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_scal
implicit none
class(psb_d_cyy_sparse_mat), intent(inout) :: a
@@ -215,7 +215,7 @@ subroutine psb_d_cyy_scal(d,a,info)
end subroutine psb_d_cyy_scal
subroutine psb_d_cyy_scals(d,a,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_scals
implicit none
class(psb_d_cyy_sparse_mat), intent(inout) :: a
@@ -229,7 +229,7 @@ subroutine psb_d_cyy_scals(d,a,info)
end subroutine psb_d_cyy_scals
subroutine psb_d_cyy_reallocate_nz(nz,a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_reallocate_nz
implicit none
integer, intent(in) :: nz
@@ -241,7 +241,7 @@ subroutine psb_d_cyy_reallocate_nz(nz,a)
end subroutine psb_d_cyy_reallocate_nz
subroutine psb_d_cyy_mold(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_mold
implicit none
class(psb_d_cyy_sparse_mat), intent(in) :: a
@@ -253,7 +253,7 @@ subroutine psb_d_cyy_mold(a,b,info)
end subroutine psb_d_cyy_mold
subroutine psb_d_cyy_allocate_mnnz(m,n,a,nz)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_allocate_mnnz
implicit none
integer, intent(in) :: m,n
@@ -266,7 +266,7 @@ end subroutine psb_d_cyy_allocate_mnnz
subroutine psb_d_cyy_csgetptn(imin,imax,a,nz,ia,ja,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_csgetptn
implicit none
@@ -289,7 +289,7 @@ end subroutine psb_d_cyy_csgetptn
subroutine psb_d_cyy_csgetrow(imin,imax,a,nz,ia,ja,val,info,&
& jmin,jmax,iren,append,nzin,rscale,cscale)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_csgetrow
implicit none
@@ -315,7 +315,7 @@ end subroutine psb_d_cyy_csgetrow
subroutine psb_d_cyy_csgetblk(imin,imax,a,b,info,&
& jmin,jmax,iren,append,rscale,cscale)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_csgetblk
implicit none
@@ -336,7 +336,7 @@ subroutine psb_d_cyy_csgetblk(imin,imax,a,b,info,&
end subroutine psb_d_cyy_csgetblk
subroutine psb_d_cyy_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_csput
implicit none
@@ -355,7 +355,7 @@ subroutine psb_d_cyy_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
end subroutine psb_d_cyy_csput
subroutine psb_d_cyy_reinit(a,clear)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_reinit
implicit none
@@ -371,7 +371,7 @@ subroutine psb_d_cyy_reinit(a,clear)
end subroutine psb_d_cyy_reinit
subroutine psb_d_cyy_trim(a)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_trim
implicit none
class(psb_d_cyy_sparse_mat), intent(inout) :: a
@@ -383,7 +383,7 @@ subroutine psb_d_cyy_trim(a)
end subroutine psb_d_cyy_trim
subroutine psb_d_cyy_print(iout,a,iv,eirs,eics,head,ivr,ivc)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_print
implicit none
@@ -402,7 +402,7 @@ subroutine psb_d_cyy_print(iout,a,iv,eirs,eics,head,ivr,ivc)
end subroutine psb_d_cyy_print
subroutine psb_d_cp_cyy_from_coo(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cp_cyy_from_coo
implicit none
@@ -423,7 +423,7 @@ subroutine psb_d_cp_cyy_from_coo(a,b,info)
end subroutine psb_d_cp_cyy_from_coo
subroutine psb_d_cp_cyy_to_coo(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cp_cyy_to_coo
implicit none
@@ -443,7 +443,7 @@ subroutine psb_d_cp_cyy_to_coo(a,b,info)
end subroutine psb_d_cp_cyy_to_coo
subroutine psb_d_mv_cyy_to_coo(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_mv_cyy_to_coo
implicit none
@@ -463,7 +463,7 @@ subroutine psb_d_mv_cyy_to_coo(a,b,info)
end subroutine psb_d_mv_cyy_to_coo
subroutine psb_d_mv_cyy_from_coo(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_mv_cyy_from_coo
implicit none
@@ -483,7 +483,7 @@ subroutine psb_d_mv_cyy_from_coo(a,b,info)
end subroutine psb_d_mv_cyy_from_coo
subroutine psb_d_mv_cyy_to_fmt(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_mv_cyy_to_fmt
implicit none
@@ -504,7 +504,7 @@ subroutine psb_d_mv_cyy_to_fmt(a,b,info)
end subroutine psb_d_mv_cyy_to_fmt
subroutine psb_d_cp_cyy_to_fmt(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cp_cyy_to_fmt
implicit none
@@ -524,7 +524,7 @@ subroutine psb_d_cp_cyy_to_fmt(a,b,info)
end subroutine psb_d_cp_cyy_to_fmt
subroutine psb_d_mv_cyy_from_fmt(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_mv_cyy_from_fmt
implicit none
@@ -545,7 +545,7 @@ subroutine psb_d_mv_cyy_from_fmt(a,b,info)
end subroutine psb_d_mv_cyy_from_fmt
subroutine psb_d_cp_cyy_from_fmt(a,b,info)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cp_cyy_from_fmt
implicit none
@@ -565,7 +565,7 @@ subroutine psb_d_cp_cyy_from_fmt(a,b,info)
end subroutine psb_d_cp_cyy_from_fmt
subroutine psb_d_cyy_cp_from(a,b)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_cp_from
implicit none
@@ -580,7 +580,7 @@ subroutine psb_d_cyy_cp_from(a,b)
end subroutine psb_d_cyy_cp_from
subroutine psb_d_cyy_mv_from(a,b)
use psb_sparse_mod
use psb_base_mod
use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_mv_from
implicit none