fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +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/fileread/cf_sample.f90
+1 -1
View File
@@ -30,7 +30,7 @@
!!$
!!$
program cf_sample
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod
test/fileread/df_sample.f90
+1 -1
View File
@@ -30,7 +30,7 @@
!!$
!!$
program df_sample
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod
test/fileread/getp.f90
+2 -2
View File
@@ -40,7 +40,7 @@ contains
!
subroutine get_dparms(ictxt,mtrx_file,rhs_file,filefmt,kmethd,ptype,ipart,&
& afmt,istopc,itmax,itrace,irst,eps)
use psb_sparse_mod
use psb_base_mod
integer :: ictxt
character(len=2) :: filefmt
character(len=40) :: kmethd, mtrx_file, rhs_file, ptype
@@ -141,7 +141,7 @@ contains
subroutine get_sparms(ictxt,mtrx_file,rhs_file,filefmt,kmethd,ptype,ipart,&
& afmt,istopc,itmax,itrace,irst,eps)
use psb_sparse_mod
use psb_base_mod
integer :: ictxt
character(len=2) :: filefmt
character(len=40) :: kmethd, mtrx_file, rhs_file, ptype
test/fileread/sf_sample.f90
+1 -1
View File
@@ -30,7 +30,7 @@
!!$
!!$
program sf_sample
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod
test/fileread/zf_sample.f90
+1 -1
View File
@@ -30,7 +30,7 @@
!!$
!!$
program zf_sample
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod
test/newfmt/ppde.F90
+9 -9
View File
@@ -62,7 +62,7 @@
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
!
program ppde
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_d_ell_mat_mod
@@ -362,7 +362,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_ell_mat_mod
implicit none
integer :: idim
@@ -648,43 +648,43 @@ end program ppde
! 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/newfmt/spde.f90
+9 -9
View File
@@ -62,7 +62,7 @@
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
!
program ppde
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
implicit none
@@ -339,7 +339,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_mat_mod
implicit none
integer :: idim
@@ -619,43 +619,43 @@ end program ppde
! functions parametrizing the differential equation
!
function a1(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a1
real(psb_spk_) :: x,y,z
a1=1.e0
end function a1
function a2(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a2
real(psb_spk_) :: x,y,z
a2=2.e1*y
end function a2
function a3(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a3
real(psb_spk_) :: x,y,z
a3=1.e0
end function a3
function a4(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a4
real(psb_spk_) :: x,y,z
a4=1.e0
end function a4
function b1(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b1
real(psb_spk_) :: x,y,z
b1=1.e0
end function b1
function b2(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b2
real(psb_spk_) :: x,y,z
b2=1.e0
end function b2
function b3(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b3
real(psb_spk_) :: x,y,z
b3=1.e0
test/pargen/ppde.f90
+9 -9
View File
@@ -62,7 +62,7 @@
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
!
program ppde
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
implicit none
@@ -354,7 +354,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_mat_mod
implicit none
integer :: idim
@@ -636,43 +636,43 @@ end program ppde
! 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/pargen/spde.f90
+9 -9
View File
@@ -62,7 +62,7 @@
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
!
program ppde
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
implicit none
@@ -354,7 +354,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_mat_mod
implicit none
integer :: idim
@@ -634,43 +634,43 @@ end program ppde
! functions parametrizing the differential equation
!
function a1(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a1
real(psb_spk_) :: x,y,z
a1=1.e0
end function a1
function a2(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a2
real(psb_spk_) :: x,y,z
a2=2.e1*y
end function a2
function a3(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a3
real(psb_spk_) :: x,y,z
a3=1.e0
end function a3
function a4(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a4
real(psb_spk_) :: x,y,z
a4=1.e0
end function a4
function b1(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b1
real(psb_spk_) :: x,y,z
b1=1.e0
end function b1
function b2(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b2
real(psb_spk_) :: x,y,z
b2=1.e0
end function b2
function b3(x,y,z)
use psb_sparse_mod, only : psb_spk_
use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b3
real(psb_spk_) :: x,y,z
b3=1.e0
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
test/torture/psb_c_mvsv_tester.f90
+36 -36
View File
@@ -2,7 +2,7 @@ module psb_c_mvsv_tester
contains
subroutine c_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -78,7 +78,7 @@ contains
!
subroutine c_usmv_2_t_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -154,7 +154,7 @@ contains
!
subroutine c_usmv_2_c_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -230,7 +230,7 @@ contains
!
subroutine c_usmv_2_n_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -306,7 +306,7 @@ contains
!
subroutine c_usmv_2_t_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -382,7 +382,7 @@ contains
!
subroutine c_usmv_2_c_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -458,7 +458,7 @@ contains
!
subroutine c_usmv_2_n_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -534,7 +534,7 @@ contains
!
subroutine c_usmv_2_t_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -610,7 +610,7 @@ contains
!
subroutine c_usmv_2_c_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -686,7 +686,7 @@ contains
!
subroutine c_usmv_2_n_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -762,7 +762,7 @@ contains
!
subroutine c_usmv_2_t_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -838,7 +838,7 @@ contains
!
subroutine c_usmv_2_c_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -914,7 +914,7 @@ contains
!
subroutine c_usmv_2_n_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -990,7 +990,7 @@ contains
!
subroutine c_usmv_2_t_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1066,7 +1066,7 @@ contains
!
subroutine c_usmv_2_c_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1142,7 +1142,7 @@ contains
!
subroutine c_usmv_2_n_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1218,7 +1218,7 @@ contains
!
subroutine c_usmv_2_t_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1294,7 +1294,7 @@ contains
!
subroutine c_usmv_2_c_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1370,7 +1370,7 @@ contains
!
subroutine c_usmv_2_n_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1446,7 +1446,7 @@ contains
!
subroutine c_usmv_2_t_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1522,7 +1522,7 @@ contains
!
subroutine c_usmv_2_c_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1598,7 +1598,7 @@ contains
!
subroutine c_usmv_2_n_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1674,7 +1674,7 @@ contains
!
subroutine c_usmv_2_t_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1750,7 +1750,7 @@ contains
!
subroutine c_usmv_2_c_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1826,7 +1826,7 @@ contains
!
subroutine c_ussv_2_n_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1905,7 +1905,7 @@ contains
!
subroutine c_ussv_2_t_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -1984,7 +1984,7 @@ contains
!
subroutine c_ussv_2_c_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2063,7 +2063,7 @@ contains
!
subroutine c_ussv_2_n_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2142,7 +2142,7 @@ contains
!
subroutine c_ussv_2_t_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2221,7 +2221,7 @@ contains
!
subroutine c_ussv_2_c_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2300,7 +2300,7 @@ contains
!
subroutine c_ussv_2_n_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2379,7 +2379,7 @@ contains
!
subroutine c_ussv_2_t_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2458,7 +2458,7 @@ contains
!
subroutine c_ussv_2_c_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2537,7 +2537,7 @@ contains
!
subroutine c_ussv_2_n_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2616,7 +2616,7 @@ contains
!
subroutine c_ussv_2_t_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
@@ -2695,7 +2695,7 @@ contains
!
subroutine c_ussv_2_c_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_cspmat_type) :: a
test/torture/psb_d_mvsv_tester.f90
+36 -36
View File
@@ -3,7 +3,7 @@ contains
subroutine d_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -79,7 +79,7 @@ contains
!
subroutine d_usmv_2_t_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -155,7 +155,7 @@ contains
!
subroutine d_usmv_2_c_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -231,7 +231,7 @@ contains
!
subroutine d_usmv_2_n_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -307,7 +307,7 @@ contains
!
subroutine d_usmv_2_t_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -383,7 +383,7 @@ contains
!
subroutine d_usmv_2_c_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -459,7 +459,7 @@ contains
!
subroutine d_usmv_2_n_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -535,7 +535,7 @@ contains
!
subroutine d_usmv_2_t_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -611,7 +611,7 @@ contains
!
subroutine d_usmv_2_c_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -687,7 +687,7 @@ contains
!
subroutine d_usmv_2_n_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -763,7 +763,7 @@ contains
!
subroutine d_usmv_2_t_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -839,7 +839,7 @@ contains
!
subroutine d_usmv_2_c_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -915,7 +915,7 @@ contains
!
subroutine d_usmv_2_n_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -991,7 +991,7 @@ contains
!
subroutine d_usmv_2_t_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1067,7 +1067,7 @@ contains
!
subroutine d_usmv_2_c_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1143,7 +1143,7 @@ contains
!
subroutine d_usmv_2_n_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1219,7 +1219,7 @@ contains
!
subroutine d_usmv_2_t_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1295,7 +1295,7 @@ contains
!
subroutine d_usmv_2_c_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1371,7 +1371,7 @@ contains
!
subroutine d_usmv_2_n_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1447,7 +1447,7 @@ contains
!
subroutine d_usmv_2_t_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1523,7 +1523,7 @@ contains
!
subroutine d_usmv_2_c_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1599,7 +1599,7 @@ contains
!
subroutine d_usmv_2_n_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1675,7 +1675,7 @@ contains
!
subroutine d_usmv_2_t_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1751,7 +1751,7 @@ contains
!
subroutine d_usmv_2_c_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1827,7 +1827,7 @@ contains
!
subroutine d_ussv_2_n_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1906,7 +1906,7 @@ contains
!
subroutine d_ussv_2_t_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -1985,7 +1985,7 @@ contains
!
subroutine d_ussv_2_c_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2064,7 +2064,7 @@ contains
!
subroutine d_ussv_2_n_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2143,7 +2143,7 @@ contains
!
subroutine d_ussv_2_t_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2222,7 +2222,7 @@ contains
!
subroutine d_ussv_2_c_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2301,7 +2301,7 @@ contains
!
subroutine d_ussv_2_n_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2380,7 +2380,7 @@ contains
!
subroutine d_ussv_2_t_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2459,7 +2459,7 @@ contains
!
subroutine d_ussv_2_c_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2538,7 +2538,7 @@ contains
!
subroutine d_ussv_2_n_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2617,7 +2617,7 @@ contains
!
subroutine d_ussv_2_t_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
@@ -2696,7 +2696,7 @@ contains
!
subroutine d_ussv_2_c_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_dspmat_type) :: a
test/torture/psb_s_mvsv_tester.f90
+36 -36
View File
@@ -1,7 +1,7 @@
module psb_s_mvsv_tester
contains
subroutine s_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -77,7 +77,7 @@ contains
!
subroutine s_usmv_2_t_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -153,7 +153,7 @@ contains
!
subroutine s_usmv_2_c_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -229,7 +229,7 @@ contains
!
subroutine s_usmv_2_n_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -305,7 +305,7 @@ contains
!
subroutine s_usmv_2_t_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -381,7 +381,7 @@ contains
!
subroutine s_usmv_2_c_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -457,7 +457,7 @@ contains
!
subroutine s_usmv_2_n_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -533,7 +533,7 @@ contains
!
subroutine s_usmv_2_t_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -609,7 +609,7 @@ contains
!
subroutine s_usmv_2_c_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -685,7 +685,7 @@ contains
!
subroutine s_usmv_2_n_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -761,7 +761,7 @@ contains
!
subroutine s_usmv_2_t_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -837,7 +837,7 @@ contains
!
subroutine s_usmv_2_c_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -913,7 +913,7 @@ contains
!
subroutine s_usmv_2_n_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -989,7 +989,7 @@ contains
!
subroutine s_usmv_2_t_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1065,7 +1065,7 @@ contains
!
subroutine s_usmv_2_c_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1141,7 +1141,7 @@ contains
!
subroutine s_usmv_2_n_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1217,7 +1217,7 @@ contains
!
subroutine s_usmv_2_t_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1293,7 +1293,7 @@ contains
!
subroutine s_usmv_2_c_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1369,7 +1369,7 @@ contains
!
subroutine s_usmv_2_n_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1445,7 +1445,7 @@ contains
!
subroutine s_usmv_2_t_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1521,7 +1521,7 @@ contains
!
subroutine s_usmv_2_c_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1597,7 +1597,7 @@ contains
!
subroutine s_usmv_2_n_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1673,7 +1673,7 @@ contains
!
subroutine s_usmv_2_t_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1749,7 +1749,7 @@ contains
!
subroutine s_usmv_2_c_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1825,7 +1825,7 @@ contains
!
subroutine s_ussv_2_n_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1903,7 +1903,7 @@ contains
!
subroutine s_ussv_2_t_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -1982,7 +1982,7 @@ contains
!
subroutine s_ussv_2_c_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2061,7 +2061,7 @@ contains
!
subroutine s_ussv_2_n_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2140,7 +2140,7 @@ contains
!
subroutine s_ussv_2_t_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2219,7 +2219,7 @@ contains
!
subroutine s_ussv_2_c_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2298,7 +2298,7 @@ contains
!
subroutine s_ussv_2_n_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2377,7 +2377,7 @@ contains
!
subroutine s_ussv_2_t_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2456,7 +2456,7 @@ contains
!
subroutine s_ussv_2_c_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2535,7 +2535,7 @@ contains
!
subroutine s_ussv_2_n_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2614,7 +2614,7 @@ contains
!
subroutine s_ussv_2_t_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
@@ -2693,7 +2693,7 @@ contains
!
subroutine s_ussv_2_c_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_sspmat_type) :: a
test/torture/psb_z_mvsv_tester.f90
+36 -36
View File
@@ -2,7 +2,7 @@ module psb_z_mvsv_tester
contains
subroutine z_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -78,7 +78,7 @@ contains
!
subroutine z_usmv_2_t_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -154,7 +154,7 @@ contains
!
subroutine z_usmv_2_c_ap3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -230,7 +230,7 @@ contains
!
subroutine z_usmv_2_n_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -306,7 +306,7 @@ contains
!
subroutine z_usmv_2_t_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -382,7 +382,7 @@ contains
!
subroutine z_usmv_2_c_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -458,7 +458,7 @@ contains
!
subroutine z_usmv_2_n_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -534,7 +534,7 @@ contains
!
subroutine z_usmv_2_t_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -610,7 +610,7 @@ contains
!
subroutine z_usmv_2_c_ap1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -686,7 +686,7 @@ contains
!
subroutine z_usmv_2_n_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -762,7 +762,7 @@ contains
!
subroutine z_usmv_2_t_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -838,7 +838,7 @@ contains
!
subroutine z_usmv_2_c_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -914,7 +914,7 @@ contains
!
subroutine z_usmv_2_n_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -990,7 +990,7 @@ contains
!
subroutine z_usmv_2_t_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1066,7 +1066,7 @@ contains
!
subroutine z_usmv_2_c_am1_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1142,7 +1142,7 @@ contains
!
subroutine z_usmv_2_n_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1218,7 +1218,7 @@ contains
!
subroutine z_usmv_2_t_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1294,7 +1294,7 @@ contains
!
subroutine z_usmv_2_c_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1370,7 +1370,7 @@ contains
!
subroutine z_usmv_2_n_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1446,7 +1446,7 @@ contains
!
subroutine z_usmv_2_t_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1522,7 +1522,7 @@ contains
!
subroutine z_usmv_2_c_am3_bp1_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1598,7 +1598,7 @@ contains
!
subroutine z_usmv_2_n_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1674,7 +1674,7 @@ contains
!
subroutine z_usmv_2_t_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1750,7 +1750,7 @@ contains
!
subroutine z_usmv_2_c_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1826,7 +1826,7 @@ contains
!
subroutine z_ussv_2_n_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1905,7 +1905,7 @@ contains
!
subroutine z_ussv_2_t_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -1984,7 +1984,7 @@ contains
!
subroutine z_ussv_2_c_ap3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2063,7 +2063,7 @@ contains
!
subroutine z_ussv_2_n_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2142,7 +2142,7 @@ contains
!
subroutine z_ussv_2_t_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2221,7 +2221,7 @@ contains
!
subroutine z_ussv_2_c_ap1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2300,7 +2300,7 @@ contains
!
subroutine z_ussv_2_n_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2379,7 +2379,7 @@ contains
!
subroutine z_ussv_2_t_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2458,7 +2458,7 @@ contains
!
subroutine z_ussv_2_c_am1_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2537,7 +2537,7 @@ contains
!
subroutine z_ussv_2_n_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2616,7 +2616,7 @@ contains
!
subroutine z_ussv_2_t_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
@@ -2695,7 +2695,7 @@ contains
!
subroutine z_ussv_2_c_am3_bm0_ix1_iy1(res,afmt,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
character(len=*) :: afmt
type(psb_zspmat_type) :: a
test/torture/psbtf.f90
+1 -1
View File
@@ -6,7 +6,7 @@
program main
use psb_sparse_mod
use psb_base_mod
use psb_mvsv_tester
implicit none
integer, parameter :: psb_fidasize_=16
test/util/dhb2mm.f90
+1 -1
View File
@@ -35,7 +35,7 @@
! format
!
program dhb2mm
use psb_sparse_mod
use psb_base_mod
use psb_util_mod
type(psb_dspmat_type) :: a
test/util/dmm2hb.f90
+1 -1
View File
@@ -35,7 +35,7 @@
! format
!
program dmm2hb
use psb_sparse_mod
use psb_base_mod
use psb_util_mod
type(psb_dspmat_type) :: a
test/util/zhb2mm.f90
+1 -1
View File
@@ -35,7 +35,7 @@
! format
!
program zhb2mm
use psb_sparse_mod
use psb_base_mod
use psb_util_mod
type(psb_zspmat_type) :: a
test/util/zmm2hb.f90
+1 -1
View File
@@ -35,7 +35,7 @@
! format
!
program zmm2hb
use psb_sparse_mod
use psb_base_mod
use psb_util_mod
type(psb_zspmat_type) :: a