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

Take out IBASE from exscan, makes no sense.

Browse Source
omp-threadsafe
sfilippone 2 years ago
parent 08ff37332a
commit f3efea0a89
22 changed files with 59 additions and 115 deletions
Show Stats Download Patch File Download Diff File

3
base/modules/auxil/psi_c_serial_mod.f90
Unescape Escape View File

@ -157,14 +157,13 @@ module psi_c_serial_mod
end interface psi_sct end interface psi_sct
interface psi_exscan 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_ import :: psb_ipk_, psb_spk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
complex(psb_spk_), intent (inout) :: x(:) complex(psb_spk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
complex(psb_spk_), intent(in), optional :: shift complex(psb_spk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_c_exscanv end subroutine psi_c_exscanv
end interface psi_exscan end interface psi_exscan

3
base/modules/auxil/psi_d_serial_mod.f90
Unescape Escape View File

@ -157,14 +157,13 @@ module psi_d_serial_mod
end interface psi_sct end interface psi_sct
interface psi_exscan 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_ import :: psb_ipk_, psb_dpk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
real(psb_dpk_), intent (inout) :: x(:) real(psb_dpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
real(psb_dpk_), intent(in), optional :: shift real(psb_dpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_d_exscanv end subroutine psi_d_exscanv
end interface psi_exscan end interface psi_exscan

3
base/modules/auxil/psi_e_serial_mod.f90
Unescape Escape View File

@ -157,14 +157,13 @@ module psi_e_serial_mod
end interface psi_sct end interface psi_sct
interface psi_exscan 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_ import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
integer(psb_epk_), intent (inout) :: x(:) integer(psb_epk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer(psb_epk_), intent(in), optional :: shift integer(psb_epk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_e_exscanv end subroutine psi_e_exscanv
end interface psi_exscan end interface psi_exscan

3
base/modules/auxil/psi_i2_serial_mod.f90
Unescape Escape View File

@ -157,14 +157,13 @@ module psi_i2_serial_mod
end interface psi_sct end interface psi_sct
interface psi_exscan 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_ import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
integer(psb_i2pk_), intent (inout) :: x(:) integer(psb_i2pk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer(psb_i2pk_), intent(in), optional :: shift integer(psb_i2pk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_i2_exscanv end subroutine psi_i2_exscanv
end interface psi_exscan end interface psi_exscan

3
base/modules/auxil/psi_m_serial_mod.f90
Unescape Escape View File

@ -157,14 +157,13 @@ module psi_m_serial_mod
end interface psi_sct end interface psi_sct
interface psi_exscan 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_ import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
integer(psb_mpk_), intent (inout) :: x(:) integer(psb_mpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer(psb_mpk_), intent(in), optional :: shift integer(psb_mpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_m_exscanv end subroutine psi_m_exscanv
end interface psi_exscan end interface psi_exscan

3
base/modules/auxil/psi_s_serial_mod.f90
Unescape Escape View File

@ -157,14 +157,13 @@ module psi_s_serial_mod
end interface psi_sct end interface psi_sct
interface psi_exscan 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_ import :: psb_ipk_, psb_spk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
real(psb_spk_), intent (inout) :: x(:) real(psb_spk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
real(psb_spk_), intent(in), optional :: shift real(psb_spk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_s_exscanv end subroutine psi_s_exscanv
end interface psi_exscan end interface psi_exscan

3
base/modules/auxil/psi_z_serial_mod.f90
Unescape Escape View File

@ -157,14 +157,13 @@ module psi_z_serial_mod
end interface psi_sct end interface psi_sct
interface psi_exscan 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_ import :: psb_ipk_, psb_dpk_
implicit none implicit none
integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: n
complex(psb_dpk_), intent (inout) :: x(:) complex(psb_dpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
complex(psb_dpk_), intent(in), optional :: shift complex(psb_dpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
end subroutine psi_z_exscanv end subroutine psi_z_exscanv
end interface psi_exscan end interface psi_exscan

4
base/serial/impl/psb_c_csc_impl.F90
Unescape Escape View File

@ -2243,7 +2243,7 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) call psi_exscan(nc+1,a%icp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%icp(:) = 0 a%icp(:) = 0
@ -2251,7 +2251,7 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%icp(i) = a%icp(i) + 1 a%icp(i) = a%icp(i) + 1
end do end do
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) call psi_exscan(nc+1,a%icp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()

8
base/serial/impl/psb_c_csr_impl.F90
Unescape Escape View File

@ -2935,7 +2935,7 @@ subroutine psb_c_cp_csr_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%irp(:) = 0 a%irp(:) = 0
@ -2943,7 +2943,7 @@ subroutine psb_c_cp_csr_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%irp(i) = a%irp(i) + 1 a%irp(i) = a%irp(i) + 1
end do end do
call psi_exscan(nr+1,a%irp,info,shift=cone,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()
@ -3103,7 +3103,7 @@ subroutine psb_c_mv_csr_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%irp(:) = 0 a%irp(:) = 0
@ -3111,7 +3111,7 @@ subroutine psb_c_mv_csr_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%irp(i) = a%irp(i) + 1 a%irp(i) = a%irp(i) + 1
end do end do
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()

4
base/serial/impl/psb_d_csc_impl.F90
Unescape Escape View File

@ -2243,7 +2243,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) call psi_exscan(nc+1,a%icp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%icp(:) = 0 a%icp(:) = 0
@ -2251,7 +2251,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%icp(i) = a%icp(i) + 1 a%icp(i) = a%icp(i) + 1
end do end do
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) call psi_exscan(nc+1,a%icp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()

8
base/serial/impl/psb_d_csr_impl.F90
Unescape Escape View File

@ -2935,7 +2935,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%irp(:) = 0 a%irp(:) = 0
@ -2943,7 +2943,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%irp(i) = a%irp(i) + 1 a%irp(i) = a%irp(i) + 1
end do end do
call psi_exscan(nr+1,a%irp,info,shift=done,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()
@ -3103,7 +3103,7 @@ subroutine psb_d_mv_csr_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%irp(:) = 0 a%irp(:) = 0
@ -3111,7 +3111,7 @@ subroutine psb_d_mv_csr_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%irp(i) = a%irp(i) + 1 a%irp(i) = a%irp(i) + 1
end do end do
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()

4
base/serial/impl/psb_s_csc_impl.F90
Unescape Escape View File

@ -2243,7 +2243,7 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) call psi_exscan(nc+1,a%icp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%icp(:) = 0 a%icp(:) = 0
@ -2251,7 +2251,7 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%icp(i) = a%icp(i) + 1 a%icp(i) = a%icp(i) + 1
end do end do
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) call psi_exscan(nc+1,a%icp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()

8
base/serial/impl/psb_s_csr_impl.F90
Unescape Escape View File

@ -2935,7 +2935,7 @@ subroutine psb_s_cp_csr_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%irp(:) = 0 a%irp(:) = 0
@ -2943,7 +2943,7 @@ subroutine psb_s_cp_csr_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%irp(i) = a%irp(i) + 1 a%irp(i) = a%irp(i) + 1
end do end do
call psi_exscan(nr+1,a%irp,info,shift=sone,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()
@ -3103,7 +3103,7 @@ subroutine psb_s_mv_csr_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%irp(:) = 0 a%irp(:) = 0
@ -3111,7 +3111,7 @@ subroutine psb_s_mv_csr_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%irp(i) = a%irp(i) + 1 a%irp(i) = a%irp(i) + 1
end do end do
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()

4
base/serial/impl/psb_z_csc_impl.F90
Unescape Escape View File

@ -2243,7 +2243,7 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) call psi_exscan(nc+1,a%icp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%icp(:) = 0 a%icp(:) = 0
@ -2251,7 +2251,7 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%icp(i) = a%icp(i) + 1 a%icp(i) = a%icp(i) + 1
end do end do
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione) call psi_exscan(nc+1,a%icp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()

8
base/serial/impl/psb_z_csr_impl.F90
Unescape Escape View File

@ -2935,7 +2935,7 @@ subroutine psb_z_cp_csr_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%irp(:) = 0 a%irp(:) = 0
@ -2943,7 +2943,7 @@ subroutine psb_z_cp_csr_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%irp(i) = a%irp(i) + 1 a%irp(i) = a%irp(i) + 1
end do end do
call psi_exscan(nr+1,a%irp,info,shift=zone,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()
@ -3103,7 +3103,7 @@ subroutine psb_z_mv_csr_from_coo(a,b,info)
!$OMP END ATOMIC !$OMP END ATOMIC
end do end do
!$OMP END DO !$OMP END DO
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
!$OMP END PARALLEL !$OMP END PARALLEL
#else #else
a%irp(:) = 0 a%irp(:) = 0
@ -3111,7 +3111,7 @@ subroutine psb_z_mv_csr_from_coo(a,b,info)
i = itemp(k) i = itemp(k)
a%irp(i) = a%irp(i) + 1 a%irp(i) = a%irp(i) + 1
end do end do
call psi_exscan(nr+1,a%irp,info,shift=ione,ibase=ione) call psi_exscan(nr+1,a%irp,info,shift=ione)
#endif #endif
call a%set_host() call a%set_host()

15
base/serial/psi_c_serial_impl.F90
Unescape Escape View File

@ -29,7 +29,7 @@
! POSSIBILITY OF SUCH DAMAGE. ! POSSIBILITY OF SUCH DAMAGE.
! !
! !
subroutine psi_c_exscanv(n,x,info,shift,ibase) subroutine psi_c_exscanv(n,x,info,shift)
use psi_c_serial_mod, psb_protect_name => psi_c_exscanv use psi_c_serial_mod, psb_protect_name => psi_c_exscanv
use psb_const_mod use psb_const_mod
use psb_error_mod use psb_error_mod
@ -41,10 +41,8 @@ subroutine psi_c_exscanv(n,x,info,shift,ibase)
complex(psb_spk_), intent (inout) :: x(:) complex(psb_spk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
complex(psb_spk_), intent(in), optional :: shift complex(psb_spk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
complex(psb_spk_) :: shift_, tp, ts complex(psb_spk_) :: shift_, tp, ts
integer(psb_ipk_) :: ibase_
logical is_nested, is_parallel logical is_nested, is_parallel
if (present(shift)) then if (present(shift)) then
@ -52,11 +50,6 @@ subroutine psi_c_exscanv(n,x,info,shift,ibase)
else else
shift_ = czero shift_ = czero
end if end if
if (present(ibase)) then
ibase_ = ibase
else
ibase_ = ione
end if
#if defined(OPENMP) #if defined(OPENMP)
is_parallel = omp_in_parallel() is_parallel = omp_in_parallel()
@ -97,12 +90,12 @@ contains
wrk = (n)/nthreads wrk = (n)/nthreads
if (ithread < MOD((n),nthreads)) then if (ithread < MOD((n),nthreads)) then
wrk = wrk + 1 wrk = wrk + 1
first_idx = ithread*wrk + ibase_ first_idx = ithread*wrk + 1
else else
first_idx = ithread*wrk + MOD((n),nthreads) + ibase_ first_idx = ithread*wrk + MOD((n),nthreads) + 1
end if end if
last_idx = min(first_idx + wrk - 1,n - (ione-ibase_)) last_idx = min(first_idx + wrk - 1,n )
if (first_idx<=last_idx) then if (first_idx<=last_idx) then
sumb(ithread+2) = sumb(ithread+2) + x(first_idx) sumb(ithread+2) = sumb(ithread+2) + x(first_idx)
do i=first_idx+1,last_idx do i=first_idx+1,last_idx

15
base/serial/psi_d_serial_impl.F90
Unescape Escape View File

@ -29,7 +29,7 @@
! POSSIBILITY OF SUCH DAMAGE. ! POSSIBILITY OF SUCH DAMAGE.
! !
! !
subroutine psi_d_exscanv(n,x,info,shift,ibase) subroutine psi_d_exscanv(n,x,info,shift)
use psi_d_serial_mod, psb_protect_name => psi_d_exscanv use psi_d_serial_mod, psb_protect_name => psi_d_exscanv
use psb_const_mod use psb_const_mod
use psb_error_mod use psb_error_mod
@ -41,10 +41,8 @@ subroutine psi_d_exscanv(n,x,info,shift,ibase)
real(psb_dpk_), intent (inout) :: x(:) real(psb_dpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
real(psb_dpk_), intent(in), optional :: shift real(psb_dpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
real(psb_dpk_) :: shift_, tp, ts real(psb_dpk_) :: shift_, tp, ts
integer(psb_ipk_) :: ibase_
logical is_nested, is_parallel logical is_nested, is_parallel
if (present(shift)) then if (present(shift)) then
@ -52,11 +50,6 @@ subroutine psi_d_exscanv(n,x,info,shift,ibase)
else else
shift_ = dzero shift_ = dzero
end if end if
if (present(ibase)) then
ibase_ = ibase
else
ibase_ = ione
end if
#if defined(OPENMP) #if defined(OPENMP)
is_parallel = omp_in_parallel() is_parallel = omp_in_parallel()
@ -97,12 +90,12 @@ contains
wrk = (n)/nthreads wrk = (n)/nthreads
if (ithread < MOD((n),nthreads)) then if (ithread < MOD((n),nthreads)) then
wrk = wrk + 1 wrk = wrk + 1
first_idx = ithread*wrk + ibase_ first_idx = ithread*wrk + 1
else else
first_idx = ithread*wrk + MOD((n),nthreads) + ibase_ first_idx = ithread*wrk + MOD((n),nthreads) + 1
end if end if
last_idx = min(first_idx + wrk - 1,n - (ione-ibase_)) last_idx = min(first_idx + wrk - 1,n )
if (first_idx<=last_idx) then if (first_idx<=last_idx) then
sumb(ithread+2) = sumb(ithread+2) + x(first_idx) sumb(ithread+2) = sumb(ithread+2) + x(first_idx)
do i=first_idx+1,last_idx do i=first_idx+1,last_idx

15
base/serial/psi_e_serial_impl.F90
Unescape Escape View File

@ -29,7 +29,7 @@
! POSSIBILITY OF SUCH DAMAGE. ! POSSIBILITY OF SUCH DAMAGE.
! !
! !
subroutine psi_e_exscanv(n,x,info,shift,ibase) subroutine psi_e_exscanv(n,x,info,shift)
use psi_e_serial_mod, psb_protect_name => psi_e_exscanv use psi_e_serial_mod, psb_protect_name => psi_e_exscanv
use psb_const_mod use psb_const_mod
use psb_error_mod use psb_error_mod
@ -41,10 +41,8 @@ subroutine psi_e_exscanv(n,x,info,shift,ibase)
integer(psb_epk_), intent (inout) :: x(:) integer(psb_epk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer(psb_epk_), intent(in), optional :: shift integer(psb_epk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
integer(psb_epk_) :: shift_, tp, ts integer(psb_epk_) :: shift_, tp, ts
integer(psb_ipk_) :: ibase_
logical is_nested, is_parallel logical is_nested, is_parallel
if (present(shift)) then if (present(shift)) then
@ -52,11 +50,6 @@ subroutine psi_e_exscanv(n,x,info,shift,ibase)
else else
shift_ = ezero shift_ = ezero
end if end if
if (present(ibase)) then
ibase_ = ibase
else
ibase_ = ione
end if
#if defined(OPENMP) #if defined(OPENMP)
is_parallel = omp_in_parallel() is_parallel = omp_in_parallel()
@ -97,12 +90,12 @@ contains
wrk = (n)/nthreads wrk = (n)/nthreads
if (ithread < MOD((n),nthreads)) then if (ithread < MOD((n),nthreads)) then
wrk = wrk + 1 wrk = wrk + 1
first_idx = ithread*wrk + ibase_ first_idx = ithread*wrk + 1
else else
first_idx = ithread*wrk + MOD((n),nthreads) + ibase_ first_idx = ithread*wrk + MOD((n),nthreads) + 1
end if end if
last_idx = min(first_idx + wrk - 1,n - (ione-ibase_)) last_idx = min(first_idx + wrk - 1,n )
if (first_idx<=last_idx) then if (first_idx<=last_idx) then
sumb(ithread+2) = sumb(ithread+2) + x(first_idx) sumb(ithread+2) = sumb(ithread+2) + x(first_idx)
do i=first_idx+1,last_idx do i=first_idx+1,last_idx

15
base/serial/psi_i2_serial_impl.F90
Unescape Escape View File

@ -29,7 +29,7 @@
! POSSIBILITY OF SUCH DAMAGE. ! POSSIBILITY OF SUCH DAMAGE.
! !
! !
subroutine psi_i2_exscanv(n,x,info,shift,ibase) subroutine psi_i2_exscanv(n,x,info,shift)
use psi_i2_serial_mod, psb_protect_name => psi_i2_exscanv use psi_i2_serial_mod, psb_protect_name => psi_i2_exscanv
use psb_const_mod use psb_const_mod
use psb_error_mod use psb_error_mod
@ -41,10 +41,8 @@ subroutine psi_i2_exscanv(n,x,info,shift,ibase)
integer(psb_i2pk_), intent (inout) :: x(:) integer(psb_i2pk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer(psb_i2pk_), intent(in), optional :: shift integer(psb_i2pk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
integer(psb_i2pk_) :: shift_, tp, ts integer(psb_i2pk_) :: shift_, tp, ts
integer(psb_ipk_) :: ibase_
logical is_nested, is_parallel logical is_nested, is_parallel
if (present(shift)) then if (present(shift)) then
@ -52,11 +50,6 @@ subroutine psi_i2_exscanv(n,x,info,shift,ibase)
else else
shift_ = i2zero shift_ = i2zero
end if end if
if (present(ibase)) then
ibase_ = ibase
else
ibase_ = ione
end if
#if defined(OPENMP) #if defined(OPENMP)
is_parallel = omp_in_parallel() is_parallel = omp_in_parallel()
@ -97,12 +90,12 @@ contains
wrk = (n)/nthreads wrk = (n)/nthreads
if (ithread < MOD((n),nthreads)) then if (ithread < MOD((n),nthreads)) then
wrk = wrk + 1 wrk = wrk + 1
first_idx = ithread*wrk + ibase_ first_idx = ithread*wrk + 1
else else
first_idx = ithread*wrk + MOD((n),nthreads) + ibase_ first_idx = ithread*wrk + MOD((n),nthreads) + 1
end if end if
last_idx = min(first_idx + wrk - 1,n - (ione-ibase_)) last_idx = min(first_idx + wrk - 1,n )
if (first_idx<=last_idx) then if (first_idx<=last_idx) then
sumb(ithread+2) = sumb(ithread+2) + x(first_idx) sumb(ithread+2) = sumb(ithread+2) + x(first_idx)
do i=first_idx+1,last_idx do i=first_idx+1,last_idx

15
base/serial/psi_m_serial_impl.F90
Unescape Escape View File

@ -29,7 +29,7 @@
! POSSIBILITY OF SUCH DAMAGE. ! POSSIBILITY OF SUCH DAMAGE.
! !
! !
subroutine psi_m_exscanv(n,x,info,shift,ibase) subroutine psi_m_exscanv(n,x,info,shift)
use psi_m_serial_mod, psb_protect_name => psi_m_exscanv use psi_m_serial_mod, psb_protect_name => psi_m_exscanv
use psb_const_mod use psb_const_mod
use psb_error_mod use psb_error_mod
@ -41,10 +41,8 @@ subroutine psi_m_exscanv(n,x,info,shift,ibase)
integer(psb_mpk_), intent (inout) :: x(:) integer(psb_mpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer(psb_mpk_), intent(in), optional :: shift integer(psb_mpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
integer(psb_mpk_) :: shift_, tp, ts integer(psb_mpk_) :: shift_, tp, ts
integer(psb_ipk_) :: ibase_
logical is_nested, is_parallel logical is_nested, is_parallel
if (present(shift)) then if (present(shift)) then
@ -52,11 +50,6 @@ subroutine psi_m_exscanv(n,x,info,shift,ibase)
else else
shift_ = mzero shift_ = mzero
end if end if
if (present(ibase)) then
ibase_ = ibase
else
ibase_ = ione
end if
#if defined(OPENMP) #if defined(OPENMP)
is_parallel = omp_in_parallel() is_parallel = omp_in_parallel()
@ -97,12 +90,12 @@ contains
wrk = (n)/nthreads wrk = (n)/nthreads
if (ithread < MOD((n),nthreads)) then if (ithread < MOD((n),nthreads)) then
wrk = wrk + 1 wrk = wrk + 1
first_idx = ithread*wrk + ibase_ first_idx = ithread*wrk + 1
else else
first_idx = ithread*wrk + MOD((n),nthreads) + ibase_ first_idx = ithread*wrk + MOD((n),nthreads) + 1
end if end if
last_idx = min(first_idx + wrk - 1,n - (ione-ibase_)) last_idx = min(first_idx + wrk - 1,n )
if (first_idx<=last_idx) then if (first_idx<=last_idx) then
sumb(ithread+2) = sumb(ithread+2) + x(first_idx) sumb(ithread+2) = sumb(ithread+2) + x(first_idx)
do i=first_idx+1,last_idx do i=first_idx+1,last_idx

15
base/serial/psi_s_serial_impl.F90
Unescape Escape View File

@ -29,7 +29,7 @@
! POSSIBILITY OF SUCH DAMAGE. ! POSSIBILITY OF SUCH DAMAGE.
! !
! !
subroutine psi_s_exscanv(n,x,info,shift,ibase) subroutine psi_s_exscanv(n,x,info,shift)
use psi_s_serial_mod, psb_protect_name => psi_s_exscanv use psi_s_serial_mod, psb_protect_name => psi_s_exscanv
use psb_const_mod use psb_const_mod
use psb_error_mod use psb_error_mod
@ -41,10 +41,8 @@ subroutine psi_s_exscanv(n,x,info,shift,ibase)
real(psb_spk_), intent (inout) :: x(:) real(psb_spk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
real(psb_spk_), intent(in), optional :: shift real(psb_spk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
real(psb_spk_) :: shift_, tp, ts real(psb_spk_) :: shift_, tp, ts
integer(psb_ipk_) :: ibase_
logical is_nested, is_parallel logical is_nested, is_parallel
if (present(shift)) then if (present(shift)) then
@ -52,11 +50,6 @@ subroutine psi_s_exscanv(n,x,info,shift,ibase)
else else
shift_ = szero shift_ = szero
end if end if
if (present(ibase)) then
ibase_ = ibase
else
ibase_ = ione
end if
#if defined(OPENMP) #if defined(OPENMP)
is_parallel = omp_in_parallel() is_parallel = omp_in_parallel()
@ -97,12 +90,12 @@ contains
wrk = (n)/nthreads wrk = (n)/nthreads
if (ithread < MOD((n),nthreads)) then if (ithread < MOD((n),nthreads)) then
wrk = wrk + 1 wrk = wrk + 1
first_idx = ithread*wrk + ibase_ first_idx = ithread*wrk + 1
else else
first_idx = ithread*wrk + MOD((n),nthreads) + ibase_ first_idx = ithread*wrk + MOD((n),nthreads) + 1
end if end if
last_idx = min(first_idx + wrk - 1,n - (ione-ibase_)) last_idx = min(first_idx + wrk - 1,n )
if (first_idx<=last_idx) then if (first_idx<=last_idx) then
sumb(ithread+2) = sumb(ithread+2) + x(first_idx) sumb(ithread+2) = sumb(ithread+2) + x(first_idx)
do i=first_idx+1,last_idx do i=first_idx+1,last_idx

15
base/serial/psi_z_serial_impl.F90
Unescape Escape View File

@ -29,7 +29,7 @@
! POSSIBILITY OF SUCH DAMAGE. ! POSSIBILITY OF SUCH DAMAGE.
! !
! !
subroutine psi_z_exscanv(n,x,info,shift,ibase) subroutine psi_z_exscanv(n,x,info,shift)
use psi_z_serial_mod, psb_protect_name => psi_z_exscanv use psi_z_serial_mod, psb_protect_name => psi_z_exscanv
use psb_const_mod use psb_const_mod
use psb_error_mod use psb_error_mod
@ -41,10 +41,8 @@ subroutine psi_z_exscanv(n,x,info,shift,ibase)
complex(psb_dpk_), intent (inout) :: x(:) complex(psb_dpk_), intent (inout) :: x(:)
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
complex(psb_dpk_), intent(in), optional :: shift complex(psb_dpk_), intent(in), optional :: shift
integer(psb_ipk_), intent(in), optional :: ibase
complex(psb_dpk_) :: shift_, tp, ts complex(psb_dpk_) :: shift_, tp, ts
integer(psb_ipk_) :: ibase_
logical is_nested, is_parallel logical is_nested, is_parallel
if (present(shift)) then if (present(shift)) then
@ -52,11 +50,6 @@ subroutine psi_z_exscanv(n,x,info,shift,ibase)
else else
shift_ = zzero shift_ = zzero
end if end if
if (present(ibase)) then
ibase_ = ibase
else
ibase_ = ione
end if
#if defined(OPENMP) #if defined(OPENMP)
is_parallel = omp_in_parallel() is_parallel = omp_in_parallel()
@ -97,12 +90,12 @@ contains
wrk = (n)/nthreads wrk = (n)/nthreads
if (ithread < MOD((n),nthreads)) then if (ithread < MOD((n),nthreads)) then
wrk = wrk + 1 wrk = wrk + 1
first_idx = ithread*wrk + ibase_ first_idx = ithread*wrk + 1
else else
first_idx = ithread*wrk + MOD((n),nthreads) + ibase_ first_idx = ithread*wrk + MOD((n),nthreads) + 1
end if end if
last_idx = min(first_idx + wrk - 1,n - (ione-ibase_)) last_idx = min(first_idx + wrk - 1,n )
if (first_idx<=last_idx) then if (first_idx<=last_idx) then
sumb(ithread+2) = sumb(ithread+2) + x(first_idx) sumb(ithread+2) = sumb(ithread+2) + x(first_idx)
do i=first_idx+1,last_idx do i=first_idx+1,last_idx

Write Preview
Loading…
Cancel
Save