fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Corrected bug for passage by value

Browse Source
This commit is contained in:
Cirdans-Home
2020-04-01 17:00:48 +02:00
parent 1f441df5a0
commit 03cd6de764
4 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_c_psblas_cbind_mod.f90
+6 -6
View File
@@ -129,10 +129,10 @@ contains
type(psb_c_descriptor) :: cdh
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
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), 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
cbind/base/psb_d_psblas_cbind_mod.f90
+6 -6
View File
@@ -129,10 +129,10 @@ contains
type(psb_c_descriptor) :: cdh
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
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), 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
cbind/base/psb_s_psblas_cbind_mod.f90
+6 -6
View File
@@ -129,10 +129,10 @@ contains
type(psb_c_descriptor) :: cdh
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
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), 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
cbind/base/psb_z_psblas_cbind_mod.f90
+6 -6
View File
@@ -129,10 +129,10 @@ contains
type(psb_c_descriptor) :: cdh
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
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), 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