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

Fix SPASB in test subdirs

Browse Source
This commit is contained in:
Salvatore Filippone
2022-05-26 14:48:14 +02:00
parent df8e947fb0
commit 4765a8898c
7 changed files with 152 additions and 151 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/kernel/Makefile
+3 -2
View File
@@ -18,7 +18,8 @@ DPGOBJS=pdgenspmv.o
DVECOBJS=vecoperation.o
EXEDIR=./runs
all: runsd d_file_spmv s_file_spmv pdgenspmv vecoperation
all: runsd pdgenspmv
#d_file_spmv s_file_spmv pdgenspmv vecoperation
runsd:
(if test ! -d runs ; then mkdir runs; fi)
@@ -41,7 +42,7 @@ vecoperation: $(DVECOBJS)
/bin/mv vecoperation $(EXEDIR)
clean:
/bin/rm -f $(DBOBJSS) $(DBOBJS) $(DTOBJS) $(STOBJS) $(DVECOBJS)
/bin/rm -f $(DBOBJSS) $(DPGOBJS) $(DTOBJS) $(STOBJS) $(DVECOBJS)
lib:
(cd ../../; make library)
test/kernel/pdgenspmv.f90
+3 -3
View File
@@ -495,9 +495,9 @@ contains
t1 = psb_wtime()
if (info == psb_success_) then
if (present(amold)) then
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
call psb_spasb(a,desc_a,info,mold=amold)
else
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
end if
end if
call psb_barrier(ctxt)
@@ -575,7 +575,7 @@ program pdgenspmv
integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst, nr, ipart
integer(psb_epk_) :: amatsize, precsize, descsize, d2size, annz, nbytes
real(psb_dpk_) :: err, eps
integer(psb_ipk_), parameter :: times=10
integer(psb_ipk_), parameter :: times=20
! other variables
integer(psb_ipk_) :: info, i