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.psblas3-type-indexed
Salvatore Filippone
15 years ago
parent
eda6a4941a
commit
56fd1cfbea
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,337 @@
|
||||
function psb_base_get_nz_row(idx,a) result(res)
|
||||
use psb_error_mod
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_get_nz_row
|
||||
implicit none
|
||||
integer, intent(in) :: idx
|
||||
class(psb_base_sparse_mat), intent(in) :: a
|
||||
integer :: res
|
||||
|
||||
Integer :: err_act
|
||||
character(len=20) :: name='base_get_nz_row'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
res = -1
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end function psb_base_get_nz_row
|
||||
|
||||
function psb_base_get_nzeros(a) result(res)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_get_nzeros
|
||||
use psb_error_mod
|
||||
implicit none
|
||||
class(psb_base_sparse_mat), intent(in) :: a
|
||||
integer :: res
|
||||
|
||||
Integer :: err_act
|
||||
character(len=20) :: name='base_get_nzeros'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
res = -1
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end function psb_base_get_nzeros
|
||||
|
||||
function psb_base_get_size(a) result(res)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_get_size
|
||||
use psb_error_mod
|
||||
implicit none
|
||||
class(psb_base_sparse_mat), intent(in) :: a
|
||||
integer :: res
|
||||
|
||||
Integer :: err_act
|
||||
character(len=20) :: name='get_size'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
res = -1
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end function psb_base_get_size
|
||||
|
||||
subroutine psb_base_reinit(a,clear)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_reinit
|
||||
use psb_error_mod
|
||||
implicit none
|
||||
|
||||
class(psb_base_sparse_mat), intent(inout) :: a
|
||||
logical, intent(in), optional :: clear
|
||||
|
||||
Integer :: err_act, info
|
||||
character(len=20) :: name='reinit'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
info = 700
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_base_reinit
|
||||
|
||||
subroutine psb_base_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_sparse_print
|
||||
use psb_error_mod
|
||||
implicit none
|
||||
|
||||
integer, intent(in) :: iout
|
||||
class(psb_base_sparse_mat), intent(in) :: a
|
||||
integer, intent(in), optional :: iv(:)
|
||||
integer, intent(in), optional :: eirs,eics
|
||||
character(len=*), optional :: head
|
||||
integer, intent(in), optional :: ivr(:), ivc(:)
|
||||
|
||||
Integer :: err_act, info
|
||||
character(len=20) :: name='sparse_print'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
info = 700
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_base_sparse_print
|
||||
|
||||
subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,&
|
||||
& jmin,jmax,iren,append,nzin,rscale,cscale)
|
||||
! Output is always in COO format
|
||||
use psb_error_mod
|
||||
use psb_const_mod
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_csgetptn
|
||||
implicit none
|
||||
|
||||
class(psb_base_sparse_mat), intent(in) :: a
|
||||
integer, intent(in) :: imin,imax
|
||||
integer, intent(out) :: nz
|
||||
integer, allocatable, intent(inout) :: ia(:), ja(:)
|
||||
integer,intent(out) :: info
|
||||
logical, intent(in), optional :: append
|
||||
integer, intent(in), optional :: iren(:)
|
||||
integer, intent(in), optional :: jmin,jmax, nzin
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
Integer :: err_act
|
||||
character(len=20) :: name='csget'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
info = 700
|
||||
call psb_errpush(info,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_base_csgetptn
|
||||
|
||||
subroutine psb_base_get_neigh(a,idx,neigh,n,info,lev)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_get_neigh
|
||||
use psb_error_mod
|
||||
use psb_realloc_mod
|
||||
use psb_sort_mod
|
||||
implicit none
|
||||
class(psb_base_sparse_mat), intent(in) :: a
|
||||
integer, intent(in) :: idx
|
||||
integer, intent(out) :: n
|
||||
integer, allocatable, intent(out) :: neigh(:)
|
||||
integer, intent(out) :: info
|
||||
integer, optional, intent(in) :: lev
|
||||
|
||||
integer :: lev_, i, nl, ifl,ill,&
|
||||
& n1, err_act, nn, nidx,ntl,ma
|
||||
integer, allocatable :: ia(:), ja(:)
|
||||
character(len=20) :: name='get_neigh'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_erractionsave(err_act)
|
||||
info = 0
|
||||
if(present(lev)) then
|
||||
lev_ = lev
|
||||
else
|
||||
lev_=1
|
||||
end if
|
||||
! Turns out we can write get_neigh at this
|
||||
! level
|
||||
n = 0
|
||||
ma = a%get_nrows()
|
||||
call a%csget(idx,idx,n,ia,ja,info)
|
||||
if (info == 0) call psb_realloc(n,neigh,info)
|
||||
if (info /= 0) then
|
||||
call psb_errpush(4000,name)
|
||||
goto 9999
|
||||
end if
|
||||
neigh(1:n) = ja(1:n)
|
||||
ifl = 1
|
||||
ill = n
|
||||
do nl = 2, lev_
|
||||
n1 = ill - ifl + 1
|
||||
call psb_ensure_size(ill+n1*n1,neigh,info)
|
||||
if (info /= 0) then
|
||||
call psb_errpush(4000,name)
|
||||
goto 9999
|
||||
end if
|
||||
ntl = 0
|
||||
do i=ifl,ill
|
||||
nidx=neigh(i)
|
||||
if ((nidx /= idx).and.(nidx > 0).and.(nidx <= ma)) then
|
||||
call a%csget(nidx,nidx,nn,ia,ja,info)
|
||||
if (info==0) call psb_ensure_size(ill+ntl+nn,neigh,info)
|
||||
if (info /= 0) then
|
||||
call psb_errpush(4000,name)
|
||||
goto 9999
|
||||
end if
|
||||
neigh(ill+ntl+1:ill+ntl+nn)=ja(1:nn)
|
||||
ntl = ntl+nn
|
||||
end if
|
||||
end do
|
||||
call psb_msort_unique(neigh(ill+1:ill+ntl),nn)
|
||||
ifl = ill + 1
|
||||
ill = ill + nn
|
||||
end do
|
||||
call psb_msort_unique(neigh(1:ill),nn,dir=psb_sort_up_)
|
||||
n = nn
|
||||
|
||||
call psb_erractionrestore(err_act)
|
||||
return
|
||||
|
||||
9999 continue
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_base_get_neigh
|
||||
|
||||
subroutine psb_base_allocate_mnnz(m,n,a,nz)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_allocate_mnnz
|
||||
use psb_error_mod
|
||||
implicit none
|
||||
integer, intent(in) :: m,n
|
||||
class(psb_base_sparse_mat), intent(inout) :: a
|
||||
integer, intent(in), optional :: nz
|
||||
Integer :: err_act
|
||||
character(len=20) :: name='allocate_mnz'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_base_allocate_mnnz
|
||||
|
||||
subroutine psb_base_reallocate_nz(nz,a)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_reallocate_nz
|
||||
use psb_error_mod
|
||||
implicit none
|
||||
integer, intent(in) :: nz
|
||||
class(psb_base_sparse_mat), intent(inout) :: a
|
||||
Integer :: err_act
|
||||
character(len=20) :: name='reallocate_nz'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_base_reallocate_nz
|
||||
|
||||
subroutine psb_base_free(a)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_free
|
||||
use psb_error_mod
|
||||
implicit none
|
||||
class(psb_base_sparse_mat), intent(inout) :: a
|
||||
Integer :: err_act
|
||||
character(len=20) :: name='free'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_base_free
|
||||
|
||||
subroutine psb_base_trim(a)
|
||||
use psb_base_mat_mod, psb_protect_name => psb_base_trim
|
||||
use psb_error_mod
|
||||
implicit none
|
||||
class(psb_base_sparse_mat), intent(inout) :: a
|
||||
Integer :: err_act
|
||||
character(len=20) :: name='trim'
|
||||
logical, parameter :: debug=.false.
|
||||
|
||||
call psb_get_erraction(err_act)
|
||||
! This is the base version. If we get here
|
||||
! it means the derived class is incomplete,
|
||||
! so we throw an error.
|
||||
call psb_errpush(700,name,a_err=a%get_fmt())
|
||||
|
||||
if (err_act /= psb_act_ret_) then
|
||||
call psb_error()
|
||||
end if
|
||||
return
|
||||
|
||||
end subroutine psb_base_trim
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -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
|
||||
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue