You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
584 B
Fortran
29 lines
584 B
Fortran
program main
|
|
use psb_spmv_overlap_test
|
|
use psb_base_mod
|
|
|
|
implicit none
|
|
|
|
integer(psb_ipk_) :: my_rank, np
|
|
integer(psb_ipk_) :: k, h
|
|
type(psb_ctxt_type) :: ctxt
|
|
|
|
|
|
|
|
call psb_init(ctxt)
|
|
call psb_info(ctxt, my_rank, np)
|
|
|
|
if (my_rank == psb_root_) then
|
|
write(psb_out_unit,*) 'Welcome to PSBLAS version: ', psb_version_string_
|
|
write(psb_out_unit,*) 'This is the psb_spmv_overlap_test sample program'
|
|
end if
|
|
|
|
call psb_barrier(ctxt)
|
|
|
|
|
|
call psb_spmv_overlap_kernel(ctxt)
|
|
|
|
|
|
call psb_exit(ctxt)
|
|
end program main
|