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

psblas3:

Browse Source 
base/modules/psb_d_mat_mod.f03
 base/psblas/psb_dspnrm1.f90

Fixed inconsistent interfaces, discovered with nagfor.
This commit is contained in:
Salvatore Filippone
2010-11-24 13:34:47 +00:00
parent 46da91cdc7
commit 80487d7c9c
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_d_mat_mod.f03
+8 -4
View File
@@ -638,34 +638,38 @@ module psb_d_mat_mod
end interface
interface
subroutine psb_d_rowsum(d,a)
subroutine psb_d_rowsum(d,a,info)
import :: psb_dspmat_type, psb_dpk_
class(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
integer, intent(out) :: info
end subroutine psb_d_rowsum
end interface
interface
subroutine psb_d_arwsum(d,a)
subroutine psb_d_arwsum(d,a,info)
import :: psb_dspmat_type, psb_dpk_
class(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
integer, intent(out) :: info
end subroutine psb_d_arwsum
end interface
interface
subroutine psb_d_colsum(d,a)
subroutine psb_d_colsum(d,a,info)
import :: psb_dspmat_type, psb_dpk_
class(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
integer, intent(out) :: info
end subroutine psb_d_colsum
end interface
interface
subroutine psb_d_aclsum(d,a)
subroutine psb_d_aclsum(d,a,info)
import :: psb_dspmat_type, psb_dpk_
class(psb_dspmat_type), intent(in) :: a
real(psb_dpk_), intent(out) :: d(:)
integer, intent(out) :: info
end subroutine psb_d_aclsum
end interface
base/psblas/psb_dspnrm1.f90
+2 -2
View File
@@ -112,8 +112,8 @@ function psb_dspnrm1(a,desc_a,info)
end if
if ((m /= 0).and.(n /= 0)) then
call a%aclsum(v)
call psb_halo(v,desc_a,info,tran='T')
call a%aclsum(v,info)
if (info == psb_success_) call psb_halo(v,desc_a,info,tran='T')
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_halo'