fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Corrected bug for passage by value

Browse Source
merge-paraggr-newops
Cirdans-Home 5 years ago
parent 1f441df5a0
commit 03cd6de764
4 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File

6
cbind/base/psb_c_psblas_cbind_mod.f90
Unescape Escape View File

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

6
cbind/base/psb_d_psblas_cbind_mod.f90
Unescape Escape View File

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

6
cbind/base/psb_s_psblas_cbind_mod.f90
Unescape Escape View File

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

6
cbind/base/psb_z_psblas_cbind_mod.f90
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save