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 
krylov/psb_cfcg.F90
 krylov/psb_dfcg.F90
 krylov/psb_sfcg.F90
 krylov/psb_zfcg.F90
 test/fileread/runs/dfs.inp
 test/kernel/d_file_spmv.f90
 test/kernel/runs/fspmv.inp
 test/kernel/s_file_spmv.f90


Take out old variables.
This commit is contained in:
Salvatore Filippone
2016-05-23 13:33:15 +00:00
parent 4d3b8d95e5
commit 5edd786cc6
8 changed files with 26 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/kernel/d_file_spmv.f90
+1 -1
View File
@@ -62,7 +62,7 @@ program d_file_spmv
character(len=20) :: name
character(len=2) :: filefmt
integer(psb_ipk_), parameter :: iunit=12
integer(psb_ipk_), parameter :: times=10
integer(psb_ipk_), parameter :: times=20
integer(psb_ipk_) :: iparm(20)
! other variables
test/kernel/runs/fspmv.inp
+1 -1
View File
@@ -1,4 +1,4 @@
ASIC_100ks.mtx
ML_Laplace.mtx
MM
0
test/kernel/s_file_spmv.f90
+3 -3
View File
@@ -182,7 +182,7 @@ program s_file_spmv
ivg(i) = ipv(1)
enddo
call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
& desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else if (ipart == 2) then
if (iam==psb_root_) then
@@ -196,12 +196,12 @@ program s_file_spmv
call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg)
call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
& desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else
if (iam==psb_root_) write(psb_out_unit,'("Partition type: block")')
call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
& desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
end if
call psb_geall(x_col,desc_a,info)