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

psblas3:

Browse Source 
Fix inconsistent INTENT
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent 7465406d15
commit de1fcda44d
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File

6
test/serial/psb_d_cxx_impl.f03
Unescape Escape View File

@ -1709,7 +1709,7 @@ subroutine d_cp_cxx_to_coo_impl(a,b,info)
implicit none implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a 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, intent(out) :: info
integer, allocatable :: itemp(:) integer, allocatable :: itemp(:)
@ -1751,7 +1751,7 @@ subroutine d_mv_cxx_to_coo_impl(a,b,info)
implicit none implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a 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, intent(out) :: info
integer, allocatable :: itemp(:) integer, allocatable :: itemp(:)
@ -1885,7 +1885,7 @@ subroutine d_mv_cxx_to_fmt_impl(a,b,info)
implicit none implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a 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, intent(out) :: info
!locals !locals

14
test/serial/psb_d_cxx_mat_mod.f03
Unescape Escape View File

@ -85,7 +85,7 @@ module psb_d_cxx_mat_mod
use psb_d_base_mat_mod use psb_d_base_mat_mod
import psb_d_cxx_sparse_mat import psb_d_cxx_sparse_mat
class(psb_d_cxx_sparse_mat), intent(in) :: a 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, intent(out) :: info
end subroutine d_cp_cxx_to_coo_impl end subroutine d_cp_cxx_to_coo_impl
end interface end interface
@ -107,7 +107,7 @@ module psb_d_cxx_mat_mod
use psb_d_base_mat_mod use psb_d_base_mat_mod
import psb_d_cxx_sparse_mat import psb_d_cxx_sparse_mat
class(psb_d_cxx_sparse_mat), intent(inout) :: a 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, intent(out) :: info
end subroutine d_mv_cxx_to_fmt_impl end subroutine d_mv_cxx_to_fmt_impl
end interface end interface
@ -130,7 +130,7 @@ module psb_d_cxx_mat_mod
use psb_d_base_mat_mod use psb_d_base_mat_mod
import psb_d_cxx_sparse_mat import psb_d_cxx_sparse_mat
class(psb_d_cxx_sparse_mat), intent(inout) :: a 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, intent(out) :: info
end subroutine d_mv_cxx_to_coo_impl end subroutine d_mv_cxx_to_coo_impl
end interface end interface
@ -784,7 +784,7 @@ contains
use psb_realloc_mod use psb_realloc_mod
implicit none implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a 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, intent(out) :: info
Integer :: err_act Integer :: err_act
@ -849,7 +849,7 @@ contains
use psb_realloc_mod use psb_realloc_mod
implicit none implicit none
class(psb_d_cxx_sparse_mat), intent(in) :: a 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, intent(out) :: info
Integer :: err_act Integer :: err_act
@ -914,7 +914,7 @@ contains
use psb_realloc_mod use psb_realloc_mod
implicit none implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a 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, intent(out) :: info
Integer :: err_act Integer :: err_act
@ -979,7 +979,7 @@ contains
use psb_realloc_mod use psb_realloc_mod
implicit none implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a 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, intent(out) :: info
Integer :: err_act Integer :: err_act

Write Preview
Loading…
Cancel
Save