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

Take out IBASE from exscan, makes no sense.

Browse Source
This commit is contained in:
sfilippone
2023-04-20 12:31:32 +02:00
parent 08ff37332a
commit f3efea0a89
22 changed files with 59 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/auxil/psi_c_serial_mod.f90
+1 -2
View File
@@ -157,14 +157,13 @@ module psi_c_serial_mod
end interface psi_sct
interface psi_exscan
subroutine psi_c_exscanv(n,x,info,shift,ibase)
subroutine psi_c_exscanv(n,x,info,shift)
import :: psb_ipk_, psb_spk_
implicit none
integer(psb_ipk_), intent(in) :: n
complex(psb_spk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
complex(psb_spk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_c_exscanv
end interface psi_exscan
base/modules/auxil/psi_d_serial_mod.f90
+1 -2
View File
@@ -157,14 +157,13 @@ module psi_d_serial_mod
end interface psi_sct
interface psi_exscan
subroutine psi_d_exscanv(n,x,info,shift,ibase)
subroutine psi_d_exscanv(n,x,info,shift)
import :: psb_ipk_, psb_dpk_
implicit none
integer(psb_ipk_), intent(in) :: n
real(psb_dpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
real(psb_dpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_d_exscanv
end interface psi_exscan
base/modules/auxil/psi_e_serial_mod.f90
+1 -2
View File
@@ -157,14 +157,13 @@ module psi_e_serial_mod
end interface psi_sct
interface psi_exscan
subroutine psi_e_exscanv(n,x,info,shift,ibase)
subroutine psi_e_exscanv(n,x,info,shift)
import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
implicit none
integer(psb_ipk_), intent(in) :: n
integer(psb_epk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
integer(psb_epk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_e_exscanv
end interface psi_exscan
base/modules/auxil/psi_i2_serial_mod.f90
+1 -2
View File
@@ -157,14 +157,13 @@ module psi_i2_serial_mod
end interface psi_sct
interface psi_exscan
subroutine psi_i2_exscanv(n,x,info,shift,ibase)
subroutine psi_i2_exscanv(n,x,info,shift)
import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
implicit none
integer(psb_ipk_), intent(in) :: n
integer(psb_i2pk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
integer(psb_i2pk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_i2_exscanv
end interface psi_exscan
base/modules/auxil/psi_m_serial_mod.f90
+1 -2
View File
@@ -157,14 +157,13 @@ module psi_m_serial_mod
end interface psi_sct
interface psi_exscan
subroutine psi_m_exscanv(n,x,info,shift,ibase)
subroutine psi_m_exscanv(n,x,info,shift)
import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
implicit none
integer(psb_ipk_), intent(in) :: n
integer(psb_mpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
integer(psb_mpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_m_exscanv
end interface psi_exscan
base/modules/auxil/psi_s_serial_mod.f90
+1 -2
View File
@@ -157,14 +157,13 @@ module psi_s_serial_mod
end interface psi_sct
interface psi_exscan
subroutine psi_s_exscanv(n,x,info,shift,ibase)
subroutine psi_s_exscanv(n,x,info,shift)
import :: psb_ipk_, psb_spk_
implicit none
integer(psb_ipk_), intent(in) :: n
real(psb_spk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
real(psb_spk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_s_exscanv
end interface psi_exscan
base/modules/auxil/psi_z_serial_mod.f90
+1 -2
View File
@@ -157,14 +157,13 @@ module psi_z_serial_mod
end interface psi_sct
interface psi_exscan
subroutine psi_z_exscanv(n,x,info,shift,ibase)
subroutine psi_z_exscanv(n,x,info,shift)
import :: psb_ipk_, psb_dpk_
implicit none
integer(psb_ipk_), intent(in) :: n
complex(psb_dpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info
complex(psb_dpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_z_exscanv
end interface psi_exscan