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, revealed by NAG compiler.
 psb_cspsm.f90
 psb_dspsm.f90
 psb_sspsm.f90
 psb_zspsm.f90
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent cd47d999ba
commit d9b7abda2a
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

2
base/psblas/psb_cspsm.f90
Unescape Escape 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 complex(psb_spk_), intent(in) :: alpha, beta
type(psb_c_vect_type), intent(inout) :: x type(psb_c_vect_type), intent(inout) :: x
type(psb_c_vect_type), intent(inout) :: y 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 type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
type(psb_c_vect_type), intent(inout), optional :: diag type(psb_c_vect_type), intent(inout), optional :: diag

6
base/psblas/psb_dspsm.f90
Unescape Escape 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 real(psb_dpk_), intent(in) :: alpha, beta
type(psb_d_vect_type), intent(inout) :: x type(psb_d_vect_type), intent(inout) :: x
type(psb_d_vect_type), intent(inout) :: y type(psb_d_vect_type), intent(inout) :: y
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(inout) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
type(psb_d_vect_type), intent(inout), optional :: diag type(psb_d_vect_type), intent(inout), optional :: diag
real(psb_dpk_), optional, target, intent(inout) :: work(:) real(psb_dpk_), optional, target, intent(inout) :: work(:)
character, intent(in), optional :: trans, scale character, intent(in), optional :: trans, scale

6
base/psblas/psb_sspsm.f90
Unescape Escape 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 real(psb_spk_), intent(in) :: alpha, beta
type(psb_s_vect_type), intent(inout) :: x type(psb_s_vect_type), intent(inout) :: x
type(psb_s_vect_type), intent(inout) :: y type(psb_s_vect_type), intent(inout) :: y
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(inout) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
type(psb_s_vect_type), intent(inout), optional :: diag type(psb_s_vect_type), intent(inout), optional :: diag
real(psb_spk_), optional, target, intent(inout) :: work(:) real(psb_spk_), optional, target, intent(inout) :: work(:)
character, intent(in), optional :: trans, scale character, intent(in), optional :: trans, scale

2
base/psblas/psb_zspsm.f90
Unescape Escape 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 complex(psb_dpk_), intent(in) :: alpha, beta
type(psb_z_vect_type), intent(inout) :: x type(psb_z_vect_type), intent(inout) :: x
type(psb_z_vect_type), intent(inout) :: y 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 type(psb_desc_type), intent(in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
type(psb_z_vect_type), intent(inout), optional :: diag type(psb_z_vect_type), intent(inout), optional :: diag

Write Preview
Loading…
Cancel
Save