fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +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
test/serial/d_matgen.F90
+2 -2
View File
@@ -305,9 +305,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)
test/torture/psb_c_mvsv_tester.f90
+36 -36
View File
@@ -49,7 +49,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -126,7 +126,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -203,7 +203,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -280,7 +280,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -357,7 +357,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -434,7 +434,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -511,7 +511,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -588,7 +588,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -665,7 +665,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -742,7 +742,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -819,7 +819,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -896,7 +896,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -973,7 +973,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1050,7 +1050,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1127,7 +1127,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1204,7 +1204,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1281,7 +1281,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1358,7 +1358,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1435,7 +1435,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1512,7 +1512,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1589,7 +1589,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1666,7 +1666,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1743,7 +1743,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1820,7 +1820,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1900,7 +1900,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1980,7 +1980,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2060,7 +2060,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2140,7 +2140,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2220,7 +2220,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2300,7 +2300,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2380,7 +2380,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2460,7 +2460,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2540,7 +2540,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2620,7 +2620,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2700,7 +2700,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2780,7 +2780,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
test/torture/psb_d_mvsv_tester.f90
+36 -36
View File
@@ -50,7 +50,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -127,7 +127,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -204,7 +204,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -281,7 +281,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -358,7 +358,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -435,7 +435,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -512,7 +512,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -589,7 +589,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -666,7 +666,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -743,7 +743,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -820,7 +820,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -897,7 +897,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -974,7 +974,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1051,7 +1051,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1128,7 +1128,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1205,7 +1205,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1282,7 +1282,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1359,7 +1359,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1436,7 +1436,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1513,7 +1513,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1590,7 +1590,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1667,7 +1667,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1744,7 +1744,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1821,7 +1821,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1901,7 +1901,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1981,7 +1981,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2061,7 +2061,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2141,7 +2141,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2221,7 +2221,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2301,7 +2301,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2381,7 +2381,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2461,7 +2461,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2541,7 +2541,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2621,7 +2621,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2701,7 +2701,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2781,7 +2781,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
test/torture/psb_s_mvsv_tester.f90
+36 -36
View File
@@ -48,7 +48,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -125,7 +125,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -202,7 +202,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -279,7 +279,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -356,7 +356,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -433,7 +433,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -510,7 +510,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -587,7 +587,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -664,7 +664,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -741,7 +741,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -818,7 +818,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -895,7 +895,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -972,7 +972,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1049,7 +1049,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1126,7 +1126,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1203,7 +1203,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1280,7 +1280,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1357,7 +1357,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1434,7 +1434,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1511,7 +1511,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1588,7 +1588,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1665,7 +1665,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1742,7 +1742,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1819,7 +1819,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1898,7 +1898,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1978,7 +1978,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2058,7 +2058,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2138,7 +2138,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2218,7 +2218,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2298,7 +2298,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2378,7 +2378,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2458,7 +2458,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2538,7 +2538,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2618,7 +2618,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2698,7 +2698,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2778,7 +2778,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
test/torture/psb_z_mvsv_tester.f90
+36 -36
View File
@@ -49,7 +49,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -126,7 +126,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -203,7 +203,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -280,7 +280,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -357,7 +357,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -434,7 +434,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -511,7 +511,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -588,7 +588,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -665,7 +665,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -742,7 +742,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -819,7 +819,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -896,7 +896,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -973,7 +973,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1050,7 +1050,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1127,7 +1127,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1204,7 +1204,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1281,7 +1281,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1358,7 +1358,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1435,7 +1435,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1512,7 +1512,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1589,7 +1589,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1666,7 +1666,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1743,7 +1743,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1820,7 +1820,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1900,7 +1900,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -1980,7 +1980,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2060,7 +2060,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2140,7 +2140,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2220,7 +2220,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2300,7 +2300,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2380,7 +2380,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2460,7 +2460,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2540,7 +2540,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2620,7 +2620,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2700,7 +2700,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996
@@ -2780,7 +2780,7 @@ contains
if (info /= psb_success_)goto 9996
call psb_cdasb(desc_a,info)
if (info /= psb_success_)goto 9996
call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
call psb_spasb(a,desc_a,info,afmt=afmt)
if(info.ne.0)print *,"matrix assembly failed"
if(info.ne.0)goto 9996