fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 23:16:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix typo in interface for psb_abgdxyz

Browse Source
This commit is contained in:
Salvatore Filippone
2024-02-13 15:48:43 +01:00
parent 92a95699ba
commit 6c53b6ec79
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psblas/psb_c_psblas_mod.F90
+2 -2
View File
@@ -143,7 +143,7 @@ module psb_c_psblas_mod
end subroutine psb_caxpby
end interface
interface psb_abgdxyx
interface psb_abgdxyz
subroutine psb_cabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,&
& desc_a, info)
import :: psb_desc_type, psb_spk_, psb_ipk_, &
@@ -155,7 +155,7 @@ module psb_c_psblas_mod
type(psb_desc_type), intent (in) :: desc_a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_cabgdxyz_vect
end interface psb_abgdxyx
end interface psb_abgdxyz
interface psb_geamax
function psb_camax(x, desc_a, info, jx,global)
base/modules/psblas/psb_d_psblas_mod.F90
+2 -2
View File
@@ -143,7 +143,7 @@ module psb_d_psblas_mod
end subroutine psb_daxpby
end interface
interface psb_abgdxyx
interface psb_abgdxyz
subroutine psb_dabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,&
& desc_a, info)
import :: psb_desc_type, psb_dpk_, psb_ipk_, &
@@ -155,7 +155,7 @@ module psb_d_psblas_mod
type(psb_desc_type), intent (in) :: desc_a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_dabgdxyz_vect
end interface psb_abgdxyx
end interface psb_abgdxyz
interface psb_geamax
function psb_damax(x, desc_a, info, jx,global)
base/modules/psblas/psb_s_psblas_mod.F90
+2 -2
View File
@@ -143,7 +143,7 @@ module psb_s_psblas_mod
end subroutine psb_saxpby
end interface
interface psb_abgdxyx
interface psb_abgdxyz
subroutine psb_sabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,&
& desc_a, info)
import :: psb_desc_type, psb_spk_, psb_ipk_, &
@@ -155,7 +155,7 @@ module psb_s_psblas_mod
type(psb_desc_type), intent (in) :: desc_a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_sabgdxyz_vect
end interface psb_abgdxyx
end interface psb_abgdxyz
interface psb_geamax
function psb_samax(x, desc_a, info, jx,global)
base/modules/psblas/psb_z_psblas_mod.F90
+2 -2
View File
@@ -143,7 +143,7 @@ module psb_z_psblas_mod
end subroutine psb_zaxpby
end interface
interface psb_abgdxyx
interface psb_abgdxyz
subroutine psb_zabgdxyz_vect(alpha, beta, gamma, delta, x, y, z,&
& desc_a, info)
import :: psb_desc_type, psb_dpk_, psb_ipk_, &
@@ -155,7 +155,7 @@ module psb_z_psblas_mod
type(psb_desc_type), intent (in) :: desc_a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_zabgdxyz_vect
end interface psb_abgdxyx
end interface psb_abgdxyz
interface psb_geamax
function psb_zamax(x, desc_a, info, jx,global)