fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Delete test/torture from maint

Browse Source
maint-3.7.0 v3.7.0.2
Salvatore Filippone 3 years ago
parent 0c99e85343
commit 5fe229f23a
7 changed files with 0 additions and 12047 deletions
Show Stats Download Patch File Download Diff File

45
test/torture/Makefile
Unescape Escape View File

@ -1,45 +0,0 @@
INSTALLDIR=../..
INCDIR=$(INSTALLDIR)/include/
MODDIR=$(INSTALLDIR)/modules/
include $(INCDIR)/Make.inc.psblas
LIBDIR=$(INSTALLDIR)/lib/
PSBLAS_LIB= -L$(LIBDIR) -lpsb_util -lpsb_krylov -lpsb_prec -lpsb_base
LDLIBS=$(PSBLDLIBS)
CCOPT= -g
FINCLUDES=$(FMFLAG)$(MODDIR) $(FMFLAG).
PSBTOBJS=psbtf.o psb_mvsv_tester.o \
psb_s_mvsv_tester.o psb_d_mvsv_tester.o psb_c_mvsv_tester.o \
psb_z_mvsv_tester.o
EXEDIR=./runs
all: runsd psbtf
runsd:
(if test ! -d runs ; then mkdir runs; fi)
psbtf.o: psb_mvsv_tester.o
psb_mvsv_tester.o: psb_s_mvsv_tester.o psb_d_mvsv_tester.o psb_c_mvsv_tester.o \
psb_z_mvsv_tester.o
psbtf: $(PSBTOBJS)
$(FLINK) $(PSBTOBJS) -o psbtf $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psbtf $(EXEDIR)
psbtf.o: psb_mvsv_tester.o
.f90.o:
$(MPFC) $(FCOPT) $(FINCLUDES) $(FDEFINES) -c $<
clean:
/bin/rm -f $(PSBTOBJS) ppde.o spde.o $(EXEDIR)/ppde
verycleanlib:
(cd ../..; make veryclean)
lib:
(cd ../../; make library)

2811
test/torture/psb_c_mvsv_tester.f90
View File

File diff suppressed because it is too large Load Diff

2812
test/torture/psb_d_mvsv_tester.f90
View File

File diff suppressed because it is too large Load Diff

6
test/torture/psb_mvsv_tester.f90
Unescape Escape View File

@ -1,6 +0,0 @@
module psb_mvsv_tester
use psb_s_mvsv_tester
use psb_d_mvsv_tester
use psb_c_mvsv_tester
use psb_z_mvsv_tester
end module psb_mvsv_tester

2809
test/torture/psb_s_mvsv_tester.f90
View File

File diff suppressed because it is too large Load Diff

2810
test/torture/psb_z_mvsv_tester.f90
View File

File diff suppressed because it is too large Load Diff

754
test/torture/psbtf.f90
Unescape Escape View File

@ -1,754 +0,0 @@
!
! Parallel Sparse BLAS fortran interface testing code
!
!
!
program main
use psb_base_mod
use psb_mvsv_tester
implicit none
integer(psb_ipk_), parameter :: psb_fidasize_=16
integer(psb_ipk_) :: res,passed=0,failed=0;
integer(psb_ipk_) :: ctxt, iam=-1, np=-1
character(len=psb_fidasize_) :: afmt
write(psb_out_unit,*) 'Format ?'
read(psb_inp_unit,*) afmt
! afmt = 'COO'
call psb_init(ctxt)
call psb_info(ctxt,iam,np)
if(iam<0)then
goto 9999
endif
call s_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_t_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_c_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_n_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_t_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_c_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_n_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_t_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_c_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_n_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_t_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_c_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_n_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_t_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_c_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_n_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_t_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_c_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_n_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_t_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_c_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_n_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_t_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_usmv_2_c_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_n_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_t_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_c_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_n_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_t_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_c_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_n_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_t_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_c_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_n_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_t_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call s_ussv_2_c_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_t_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_c_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_n_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_t_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_c_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_n_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_t_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_c_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_n_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_t_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_c_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_n_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_t_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_c_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_n_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_t_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_c_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_n_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_t_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_c_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_n_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_t_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_usmv_2_c_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_n_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_t_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_c_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_n_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_t_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_c_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_n_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_t_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_c_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_n_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_t_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call d_ussv_2_c_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_t_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_c_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_n_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_t_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_c_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_n_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_t_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_c_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_n_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_t_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_c_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_n_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_t_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_c_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_n_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_t_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_c_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_n_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_t_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_c_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_n_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_t_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_usmv_2_c_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_n_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_t_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_c_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_n_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_t_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_c_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_n_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_t_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_c_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_n_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_t_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call c_ussv_2_c_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_t_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_c_ap3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_n_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_t_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_c_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_n_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_t_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_c_ap1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_n_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_t_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_c_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_n_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_t_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_c_am1_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_n_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_t_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_c_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_n_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_t_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_c_am3_bp1_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_n_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_t_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_usmv_2_c_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_n_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_t_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_c_ap3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_n_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_t_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_c_ap1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_n_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_t_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_c_am1_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_n_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_t_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
call z_ussv_2_c_am3_bm0_ix1_iy1(res,afmt,ctxt)
if(res /= 0)failed=failed+1
if(res.eq.0)passed=passed+1
res=0
9999 continue
print *,"PASSED:",passed
print *,"FAILED:",failed
call psb_exit(ctxt)
end program main
Write Preview
Loading…
Cancel
Save