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

psblas3:

Browse Source 
fix NOPASS in sample code.
This commit is contained in:
Salvatore Filippone
2011-03-09 08:45:06 +00:00
parent 72393762e3
commit f093a14c8a
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/serial/psb_d_cxx_mat_mod.f90
+2 -3
View File
@@ -10,7 +10,7 @@ module psb_d_cxx_mat_mod
contains
procedure, pass(a) :: get_size => d_cxx_get_size
procedure, pass(a) :: get_nzeros => d_cxx_get_nzeros
procedure, pass(a) :: get_fmt => d_cxx_get_fmt
procedure, nopass :: get_fmt => d_cxx_get_fmt
procedure, pass(a) :: sizeof => d_cxx_sizeof
procedure, pass(a) :: d_csmm => psb_d_cxx_csmm
procedure, pass(a) :: d_csmv => psb_d_cxx_csmv
@@ -398,9 +398,8 @@ contains
end function d_cxx_sizeof
function d_cxx_get_fmt(a) result(res)
function d_cxx_get_fmt() result(res)
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
character(len=5) :: res
res = 'CXX'
end function d_cxx_get_fmt
test/serial/psb_d_cyy_mat_mod.f90
+2 -3
View File
@@ -10,7 +10,7 @@ module psb_d_cyy_mat_mod
contains
procedure, pass(a) :: get_size => d_cyy_get_size
procedure, pass(a) :: get_nzeros => d_cyy_get_nzeros
procedure, pass(a) :: get_fmt => d_cyy_get_fmt
procedure, nopass :: get_fmt => d_cyy_get_fmt
procedure, pass(a) :: sizeof => d_cyy_sizeof
procedure, pass(a) :: d_csmm => psb_d_cyy_csmm
procedure, pass(a) :: d_csmv => psb_d_cyy_csmv
@@ -381,9 +381,8 @@ contains
res = 0
end function d_cyy_sizeof
function d_cyy_get_fmt(a) result(res)
function d_cyy_get_fmt() result(res)
implicit none
class(psb_d_cyy_sparse_mat), intent(in) :: a
character(len=5) :: res
res = 'CYY'
end function d_cyy_get_fmt