mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 12:52:14 +00:00
psblas3:
base/modules/Makefile base/modules/psb_base_mat_mod.f03 base/modules/psb_c_base_mat_mod.f03 base/modules/psb_c_csc_mat_mod.f03 base/modules/psb_c_csr_mat_mod.f03 base/modules/psb_c_mat_mod.f03 base/modules/psb_d_base_mat_mod.f03 base/modules/psb_d_csc_mat_mod.f03 base/modules/psb_d_csr_mat_mod.f03 base/modules/psb_d_mat_mod.f03 base/modules/psb_s_base_mat_mod.f03 base/modules/psb_s_csc_mat_mod.f03 base/modules/psb_s_csr_mat_mod.f03 base/modules/psb_s_mat_mod.f03 base/modules/psb_sort_mod.f90 base/modules/psb_z_base_mat_mod.f03 base/modules/psb_z_csc_mat_mod.f03 base/modules/psb_z_csr_mat_mod.f03 base/modules/psb_z_mat_mod.f03 base/modules/psi_mod.f90 base/modules/psi_serial_mod.f90 base/psblas/psb_cnrmi.f90 base/psblas/psb_dnrmi.f90 base/psblas/psb_snrmi.f90 base/psblas/psb_znrmi.f90 base/serial/Makefile base/serial/f03/Makefile base/serial/f03/psb_base_mat_impl.f03 base/serial/f03/psb_c_base_mat_impl.f03 base/serial/f03/psb_c_coo_impl.f03 base/serial/f03/psb_c_csc_impl.f03 base/serial/f03/psb_c_csr_impl.f03 base/serial/f03/psb_c_mat_impl.f03 base/serial/f03/psb_d_base_mat_impl.f03 base/serial/f03/psb_d_coo_impl.f03 base/serial/f03/psb_d_csc_impl.f03 base/serial/f03/psb_d_csr_impl.f03 base/serial/f03/psb_d_mat_impl.f03 base/serial/f03/psb_s_base_mat_impl.f03 base/serial/f03/psb_s_coo_impl.f03 base/serial/f03/psb_s_csc_impl.f03 base/serial/f03/psb_s_csr_impl.f03 base/serial/f03/psb_s_mat_impl.f03 base/serial/f03/psb_z_base_mat_impl.f03 base/serial/f03/psb_z_coo_impl.f03 base/serial/f03/psb_z_csc_impl.f03 base/serial/f03/psb_z_csr_impl.f03 base/serial/f03/psb_z_mat_impl.f03 base/serial/psb_sort_impl.f90 base/serial/psi_impl.f90 base/serial/psi_serial_impl.f90 test/pargen/runs/ppde.inp test/torture test/torture/Makefile test/torture/psb_mvsv_tester.f90 test/torture/psbtf.f90 test/torture/runs util/Makefile util/psb_hbio_impl.f90 util/psb_hbio_mod.f90 util/psb_mat_dist_impl.f90 util/psb_mat_dist_mod.f90 util/psb_mmio_impl.f90 util/psb_mmio_mod.f90 Merged (at r 4082) the XLF-TEST branch, where we have decoupled interface and implementation for serial stuff.
This commit is contained in:
Salvatore Filippone
@@ -2,7 +2,7 @@
|
||||
BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES
|
||||
BJAC Preconditioner NONE DIAG BJAC
|
||||
CSR Storage format for matrix A: CSR COO JAD
|
||||
060 Domain size (acutal system is this**3)
|
||||
020 Domain size (acutal system is this**3)
|
||||
2 Stopping criterion
|
||||
0100 MAXIT
|
||||
01 ITRACE
|
||||
|
||||
@@ -0,0 +1,37 @@
|
||||
include ../../Make.inc
|
||||
#
|
||||
# Libraries used
|
||||
#
|
||||
LIBDIR=../../lib/
|
||||
PSBLAS_LIB= -L$(LIBDIR) -lpsb_util -lpsb_krylov -lpsb_prec -lpsb_base
|
||||
LDLIBS=$(PSBLDLIBS)
|
||||
#
|
||||
# Compilers and such
|
||||
#
|
||||
CCOPT= -g
|
||||
FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG).
|
||||
|
||||
PSBTOBJS=psb_mvsv_tester.o psbtf.o
|
||||
EXEDIR=./runs
|
||||
|
||||
|
||||
all: psbtf
|
||||
|
||||
psbtf: $(PSBTOBJS)
|
||||
$(F90LINK) $(PSBTOBJS) -o psbtf $(PSBLAS_LIB) $(LDLIBS)
|
||||
/bin/mv psbtf $(EXEDIR)
|
||||
|
||||
psbtf.o: psb_mvsv_tester.o
|
||||
.f90.o:
|
||||
$(MPF90) $(F90COPT) $(FINCLUDES) $(FDEFINES) -c $<
|
||||
|
||||
|
||||
clean:
|
||||
/bin/rm -f $(PSBTOBJS) ppde.o spde.o $(EXEDIR)/ppde
|
||||
verycleanlib:
|
||||
(cd ../..; make veryclean)
|
||||
lib:
|
||||
(cd ../../; make library)
|
||||
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,754 @@
|
||||
!
|
||||
! Parallel Sparse BLAS fortran interface testing code
|
||||
!
|
||||
!
|
||||
!
|
||||
|
||||
program main
|
||||
|
||||
use psb_sparse_mod
|
||||
use psb_mvsv_tester
|
||||
implicit none
|
||||
integer, parameter :: psb_fidasize_=16
|
||||
integer :: res,passed=0,failed=0;
|
||||
integer :: ictxt, iam=-1, np=-1
|
||||
character(len=psb_fidasize_) :: afmt
|
||||
|
||||
write(*,*) 'Format ?'
|
||||
read(*,*) afmt
|
||||
! afmt = 'COO'
|
||||
|
||||
call psb_init(ictxt)
|
||||
call psb_info(ictxt,iam,np)
|
||||
if(iam<0)then
|
||||
goto 9999
|
||||
endif
|
||||
call s_usmv_2_n_ap3_bp1_ix1_iy1(res,afmt,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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,ictxt)
|
||||
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(ictxt)
|
||||
|
||||
end program main
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user