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 inconsistent INTENT, revealed by NAG compiler.
 psb_cspsm.f90
 psb_dspsm.f90
 psb_sspsm.f90
 psb_zspsm.f90
This commit is contained in:
Salvatore Filippone
2011-11-04 11:08:55 +00:00
parent cd47d999ba
commit d9b7abda2a
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_cspsm.f90
+1 -1
View File
@@ -559,7 +559,7 @@ subroutine psb_cspsv_vect(alpha,a,x,beta,y,desc_a,info,&
complex(psb_spk_), intent(in) :: alpha, beta
type(psb_c_vect_type), intent(inout) :: x
type(psb_c_vect_type), intent(inout) :: y
type(psb_cspmat_type), intent(in) :: a
type(psb_cspmat_type), intent(inout) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
type(psb_c_vect_type), intent(inout), optional :: diag
base/psblas/psb_dspsm.f90
+3 -3
View File
@@ -559,9 +559,9 @@ subroutine psb_dspsv_vect(alpha,a,x,beta,y,desc_a,info,&
real(psb_dpk_), intent(in) :: alpha, beta
type(psb_d_vect_type), intent(inout) :: x
type(psb_d_vect_type), intent(inout) :: y
type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
type(psb_dspmat_type), intent(inout) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
type(psb_d_vect_type), intent(inout), optional :: diag
real(psb_dpk_), optional, target, intent(inout) :: work(:)
character, intent(in), optional :: trans, scale
base/psblas/psb_sspsm.f90
+3 -3
View File
@@ -559,9 +559,9 @@ subroutine psb_sspsv_vect(alpha,a,x,beta,y,desc_a,info,&
real(psb_spk_), intent(in) :: alpha, beta
type(psb_s_vect_type), intent(inout) :: x
type(psb_s_vect_type), intent(inout) :: y
type(psb_sspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
type(psb_sspmat_type), intent(inout) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
type(psb_s_vect_type), intent(inout), optional :: diag
real(psb_spk_), optional, target, intent(inout) :: work(:)
character, intent(in), optional :: trans, scale
base/psblas/psb_zspsm.f90
+1 -1
View File
@@ -559,7 +559,7 @@ subroutine psb_zspsv_vect(alpha,a,x,beta,y,desc_a,info,&
complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_z_vect_type), intent(inout) :: x
type(psb_z_vect_type), intent(inout) :: y
type(psb_zspmat_type), intent(in) :: a
type(psb_zspmat_type), intent(inout) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info
type(psb_z_vect_type), intent(inout), optional :: diag