Fix typo in interface for psb_abgdxyz

nond-rep
Salvatore Filippone 11 months ago
parent 92a95699ba
commit 6c53b6ec79

@ -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)

@ -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)

@ -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)

@ -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)

Loading…
Cancel
Save