fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 03:42:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix interface between vect and base_vect%ABGD

Browse Source
This commit is contained in:
Salvatore Filippone
2024-02-14 20:05:52 +01:00
parent 2a40b82b58
commit b8f9badf95
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_vect_mod.F90
+1 -1
View File
@@ -784,7 +784,7 @@ contains
integer(psb_ipk_), intent(out) :: info
if (allocated(z%v)) &
call z%abgdxyz(m,alpha,beta,gamma,delta,x,y,info)
call z%v%abgdxyz(m,alpha,beta,gamma,delta,x%v,y%v,info)
end subroutine c_vect_abgdxyz
base/modules/serial/psb_d_vect_mod.F90
+1 -1
View File
@@ -791,7 +791,7 @@ contains
integer(psb_ipk_), intent(out) :: info
if (allocated(z%v)) &
call z%abgdxyz(m,alpha,beta,gamma,delta,x,y,info)
call z%v%abgdxyz(m,alpha,beta,gamma,delta,x%v,y%v,info)
end subroutine d_vect_abgdxyz
base/modules/serial/psb_s_vect_mod.F90
+1 -1
View File
@@ -791,7 +791,7 @@ contains
integer(psb_ipk_), intent(out) :: info
if (allocated(z%v)) &
call z%abgdxyz(m,alpha,beta,gamma,delta,x,y,info)
call z%v%abgdxyz(m,alpha,beta,gamma,delta,x%v,y%v,info)
end subroutine s_vect_abgdxyz
base/modules/serial/psb_z_vect_mod.F90
+1 -1
View File
@@ -784,7 +784,7 @@ contains
integer(psb_ipk_), intent(out) :: info
if (allocated(z%v)) &
call z%abgdxyz(m,alpha,beta,gamma,delta,x,y,info)
call z%v%abgdxyz(m,alpha,beta,gamma,delta,x%v,y%v,info)
end subroutine z_vect_abgdxyz