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

Browse Source
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 1a47c6a675
commit b3a84f9b06
2 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File

12
test/kernel/d_file_spmv.f90
Unescape Escape View File

@ -31,8 +31,6 @@
!!$ !!$
program d_file_spmv program d_file_spmv
use psb_base_mod use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod use psb_util_mod
implicit none implicit none
@ -42,9 +40,6 @@ program d_file_spmv
! sparse matrices ! sparse matrices
type(psb_dspmat_type) :: a, aux_a type(psb_dspmat_type) :: a, aux_a
! preconditioner data
type(psb_dprec_type) :: prec
! dense matrices ! dense matrices
real(psb_dpk_), allocatable, target :: aux_b(:,:), d(:) real(psb_dpk_), allocatable, target :: aux_b(:,:), d(:)
real(psb_dpk_), allocatable , save :: b_col(:), x_col(:), r_col(:), & real(psb_dpk_), allocatable , save :: b_col(:), x_col(:), r_col(:), &
@ -59,7 +54,7 @@ program d_file_spmv
! solver paramters ! solver paramters
integer :: iter, itmax, ierr, itrace, ircode, ipart,& integer :: iter, itmax, ierr, itrace, ircode, ipart,&
& methd, istopc, irst, nr & methd, istopc, irst, nr
integer(psb_long_int_k_) :: amatsize, precsize, descsize, annz, nbytes integer(psb_long_int_k_) :: amatsize, descsize, annz, nbytes
real(psb_dpk_) :: err, eps,cond real(psb_dpk_) :: err, eps,cond
character(len=5) :: afmt character(len=5) :: afmt
@ -72,7 +67,7 @@ program d_file_spmv
! other variables ! other variables
integer :: i,info,j,m_problem integer :: i,info,j,m_problem
integer :: internal, m,ii,nnzero integer :: internal, m,ii,nnzero
real(psb_dpk_) :: t1, t2, tprec, r_amax, b_amax,& real(psb_dpk_) :: t1, t2, r_amax, b_amax,&
&scale,resmx,resmxp, flops, bdwdth &scale,resmx,resmxp, flops, bdwdth
real(psb_dpk_) :: tt1, tt2, tflops real(psb_dpk_) :: tt1, tt2, tflops
integer :: nrhs, nrow, n_row, dim, nv, ne integer :: nrhs, nrow, n_row, dim, nv, ne
@ -99,9 +94,6 @@ program d_file_spmv
if (iam == psb_root_) then if (iam == psb_root_) then
write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
write(*,*) 'This is the ',trim(name),' sample program' write(*,*) 'This is the ',trim(name),' sample program'
end if
if (iam == 0) then
read(psb_inp_unit,*) mtrx_file read(psb_inp_unit,*) mtrx_file
read(psb_inp_unit,*) filefmt read(psb_inp_unit,*) filefmt
read(psb_inp_unit,*) ipart read(psb_inp_unit,*) ipart

12
test/kernel/s_file_spmv.f90
Unescape Escape View File

@ -31,8 +31,6 @@
!!$ !!$
program s_file_spmv program s_file_spmv
use psb_base_mod use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod use psb_util_mod
implicit none implicit none
@ -42,9 +40,6 @@ program s_file_spmv
! sparse matrices ! sparse matrices
type(psb_sspmat_type) :: a, aux_a type(psb_sspmat_type) :: a, aux_a
! preconditioner data
type(psb_sprec_type) :: prec
! dense matrices ! dense matrices
real(psb_spk_), allocatable, target :: aux_b(:,:), d(:) real(psb_spk_), allocatable, target :: aux_b(:,:), d(:)
real(psb_spk_), allocatable , save :: b_col(:), x_col(:), r_col(:), & real(psb_spk_), allocatable , save :: b_col(:), x_col(:), r_col(:), &
@ -59,7 +54,7 @@ program s_file_spmv
! solver paramters ! solver paramters
integer :: iter, itmax, ierr, itrace, ircode, ipart,& integer :: iter, itmax, ierr, itrace, ircode, ipart,&
& methd, istopc, irst, nr & methd, istopc, irst, nr
integer(psb_long_int_k_) :: amatsize, precsize, descsize, annz, nbytes integer(psb_long_int_k_) :: amatsize, descsize, annz, nbytes
real(psb_spk_) :: err, eps,cond real(psb_spk_) :: err, eps,cond
character(len=5) :: afmt character(len=5) :: afmt
@ -72,7 +67,7 @@ program s_file_spmv
! other variables ! other variables
integer :: i,info,j,m_problem integer :: i,info,j,m_problem
integer :: internal, m,ii,nnzero integer :: internal, m,ii,nnzero
real(psb_dpk_) :: t1, t2, tprec, r_amax, b_amax,& real(psb_dpk_) :: t1, t2, r_amax, b_amax,&
&scale,resmx,resmxp, flops, bdwdth &scale,resmx,resmxp, flops, bdwdth
real(psb_dpk_) :: tt1, tt2, tflops real(psb_dpk_) :: tt1, tt2, tflops
integer :: nrhs, nrow, n_row, dim, nv, ne integer :: nrhs, nrow, n_row, dim, nv, ne
@ -99,9 +94,6 @@ program s_file_spmv
if (iam == psb_root_) then if (iam == psb_root_) then
write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
write(*,*) 'This is the ',trim(name),' sample program' write(*,*) 'This is the ',trim(name),' sample program'
end if
if (iam == 0) then
read(psb_inp_unit,*) mtrx_file read(psb_inp_unit,*) mtrx_file
read(psb_inp_unit,*) filefmt read(psb_inp_unit,*) filefmt
read(psb_inp_unit,*) ipart read(psb_inp_unit,*) ipart

Write Preview
Loading…
Cancel
Save