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

psblas3:

Browse Source 
Fix inconsistent INTENT
This commit is contained in:
Salvatore Filippone
2010-04-30 08:40:03 +00:00
parent 7465406d15
commit de1fcda44d
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/serial/psb_d_cxx_impl.f03
+3 -3
View File
@@ -1709,7 +1709,7 @@ subroutine d_cp_cxx_to_coo_impl(a,b,info)
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
class(psb_d_coo_sparse_mat), intent(out) :: b
class(psb_d_coo_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
integer, allocatable :: itemp(:)
@@ -1751,7 +1751,7 @@ subroutine d_mv_cxx_to_coo_impl(a,b,info)
implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a
class(psb_d_coo_sparse_mat), intent(out) :: b
class(psb_d_coo_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
integer, allocatable :: itemp(:)
@@ -1885,7 +1885,7 @@ subroutine d_mv_cxx_to_fmt_impl(a,b,info)
implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a
class(psb_d_base_sparse_mat), intent(out) :: b
class(psb_d_base_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
!locals
test/serial/psb_d_cxx_mat_mod.f03
+7 -7
View File
@@ -85,7 +85,7 @@ module psb_d_cxx_mat_mod
use psb_d_base_mat_mod
import psb_d_cxx_sparse_mat
class(psb_d_cxx_sparse_mat), intent(in) :: a
class(psb_d_coo_sparse_mat), intent(out) :: b
class(psb_d_coo_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
end subroutine d_cp_cxx_to_coo_impl
end interface
@@ -107,7 +107,7 @@ module psb_d_cxx_mat_mod
use psb_d_base_mat_mod
import psb_d_cxx_sparse_mat
class(psb_d_cxx_sparse_mat), intent(inout) :: a
class(psb_d_base_sparse_mat), intent(out) :: b
class(psb_d_base_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
end subroutine d_mv_cxx_to_fmt_impl
end interface
@@ -130,7 +130,7 @@ module psb_d_cxx_mat_mod
use psb_d_base_mat_mod
import psb_d_cxx_sparse_mat
class(psb_d_cxx_sparse_mat), intent(inout) :: a
class(psb_d_coo_sparse_mat), intent(out) :: b
class(psb_d_coo_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
end subroutine d_mv_cxx_to_coo_impl
end interface
@@ -784,7 +784,7 @@ contains
use psb_realloc_mod
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
class(psb_d_coo_sparse_mat), intent(out) :: b
class(psb_d_coo_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
Integer :: err_act
@@ -849,7 +849,7 @@ contains
use psb_realloc_mod
implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a
class(psb_d_base_sparse_mat), intent(out) :: b
class(psb_d_base_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
Integer :: err_act
@@ -914,7 +914,7 @@ contains
use psb_realloc_mod
implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a
class(psb_d_coo_sparse_mat), intent(out) :: b
class(psb_d_coo_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
Integer :: err_act
@@ -979,7 +979,7 @@ contains
use psb_realloc_mod
implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a
class(psb_d_base_sparse_mat), intent(out) :: b
class(psb_d_base_sparse_mat), intent(inout) :: b
integer, intent(out) :: info
Integer :: err_act