fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed declaration and use of CONTEXT with new type.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-14 16:42:15 +01:00
parent 2009ed8dbe
commit b376d226cb
468 changed files with 3616 additions and 2324 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/kernel/vecoperation.f90
+6 -4
View File
@@ -34,7 +34,7 @@
module unittestvector_mod
use psb_base_mod, only : psb_dpk_, psb_ipk_, psb_desc_type,&
& psb_dspmat_type, psb_d_vect_type, dzero,&
& psb_dspmat_type, psb_d_vect_type, dzero, psb_ctxt_type,&
& psb_d_base_sparse_mat, psb_d_base_vect_type, psb_i_base_vect_type
interface psb_gen_const
@@ -50,7 +50,7 @@ contains
type(psb_d_vect_type) :: v
real(psb_dpk_) :: val
integer(psb_ipk_) :: ictxt
type(psb_ctxt_type) :: ictxt
logical :: ans
! Local variables
@@ -84,7 +84,8 @@ contains
type(psb_d_vect_type) :: v
type(psb_desc_type) :: desc_a
integer(psb_lpk_) :: idim
integer(psb_ipk_) :: ictxt, info
type(psb_ctxt_type) :: ictxt
integer(psb_ipk_) :: info
real(psb_dpk_) :: val
! Local variables
@@ -184,7 +185,8 @@ program vecoperation
! vector
type(psb_d_vect_type) :: x,y,z
! blacs parameters
integer(psb_ipk_) :: ictxt, iam, np
type(psb_ctxt_type) :: ictxt
integer(psb_ipk_) :: iam, np
! auxiliary parameters
integer(psb_ipk_) :: info
character(len=20) :: name,ch_err,readinput