Corrected bug for passage by value

merge-paraggr-newops
Cirdans-Home 5 years ago
parent 1f441df5a0
commit 03cd6de764

@ -132,7 +132,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_c_vect_type), pointer :: xp,yp,zp
integer(psb_c_ipk_) :: info
complex(psb_spk_), intent(in) :: alpha,beta
complex(psb_spk_), intent(in), value :: alpha,beta
res = -1
@ -437,7 +437,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_c_vect_type), pointer :: xp,zp
integer(psb_c_ipk_) :: info
real(c_float_complex) :: ch
real(c_float_complex), value :: ch
res = -1
@ -473,7 +473,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_c_vect_type), pointer :: xp,zp
integer(psb_c_ipk_) :: info
real(c_float_complex) :: bh
real(c_float_complex), value :: bh
res = -1

@ -132,7 +132,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_d_vect_type), pointer :: xp,yp,zp
integer(psb_c_ipk_) :: info
real(psb_dpk_), intent(in) :: alpha,beta
real(psb_dpk_), intent(in), value :: alpha,beta
res = -1
@ -437,7 +437,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_d_vect_type), pointer :: xp,zp
integer(psb_c_ipk_) :: info
real(c_double) :: ch
real(c_double), value :: ch
res = -1
@ -473,7 +473,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_d_vect_type), pointer :: xp,zp
integer(psb_c_ipk_) :: info
real(c_double) :: bh
real(c_double), value :: bh
res = -1

@ -132,7 +132,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_s_vect_type), pointer :: xp,yp,zp
integer(psb_c_ipk_) :: info
real(psb_spk_), intent(in) :: alpha,beta
real(psb_spk_), intent(in), value :: alpha,beta
res = -1
@ -437,7 +437,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_s_vect_type), pointer :: xp,zp
integer(psb_c_ipk_) :: info
real(c_float) :: ch
real(c_float), value :: ch
res = -1
@ -473,7 +473,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_s_vect_type), pointer :: xp,zp
integer(psb_c_ipk_) :: info
real(c_float) :: bh
real(c_float), value :: bh
res = -1

@ -132,7 +132,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_z_vect_type), pointer :: xp,yp,zp
integer(psb_c_ipk_) :: info
complex(psb_dpk_), intent(in) :: alpha,beta
complex(psb_dpk_), intent(in), value :: alpha,beta
res = -1
@ -437,7 +437,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_z_vect_type), pointer :: xp,zp
integer(psb_c_ipk_) :: info
real(c_double_complex) :: ch
real(c_double_complex), value :: ch
res = -1
@ -473,7 +473,7 @@ contains
type(psb_desc_type), pointer :: descp
type(psb_z_vect_type), pointer :: xp,zp
integer(psb_c_ipk_) :: info
real(c_double_complex) :: bh
real(c_double_complex), value :: bh
res = -1

Loading…
Cancel
Save