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

Updated use of exscan in CSC

Browse Source
This commit is contained in:
sfilippone
2023-04-19 13:23:48 +02:00
parent 9c248a31e2
commit 05b684ddbb
4 changed files with 16 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csc_impl.F90
+4 -6
View File
@@ -2228,16 +2228,14 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
#if defined(OPENMP)
!$OMP PARALLEL default(none) &
!$OMP shared(nr,a,itemp,nza) &
!$OMP private(i,info)
!$OMP PARALLEL default(shared)
!$OMP WORKSHARE
a%icp(:) = 0
!$OMP END WORKSHARE
!$OMP DO schedule(STATIC) &
!$OMP private(k)
!$OMP private(k,i)
do k=1,nza
i = itemp(k)
!$OMP ATOMIC UPDATE
@@ -2245,16 +2243,16 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
!$OMP END PARALLEL
#else
a%icp(:) = 0
do k=1,nza
i = itemp(k)
a%icp(i) = a%icp(i) + 1
end do
#endif
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
#endif
call a%set_host()
base/serial/impl/psb_d_csc_impl.F90
+4 -6
View File
@@ -2228,16 +2228,14 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
#if defined(OPENMP)
!$OMP PARALLEL default(none) &
!$OMP shared(nr,a,itemp,nza) &
!$OMP private(i,info)
!$OMP PARALLEL default(shared)
!$OMP WORKSHARE
a%icp(:) = 0
!$OMP END WORKSHARE
!$OMP DO schedule(STATIC) &
!$OMP private(k)
!$OMP private(k,i)
do k=1,nza
i = itemp(k)
!$OMP ATOMIC UPDATE
@@ -2245,16 +2243,16 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
!$OMP END PARALLEL
#else
a%icp(:) = 0
do k=1,nza
i = itemp(k)
a%icp(i) = a%icp(i) + 1
end do
#endif
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
#endif
call a%set_host()
base/serial/impl/psb_s_csc_impl.F90
+4 -6
View File
@@ -2228,16 +2228,14 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
#if defined(OPENMP)
!$OMP PARALLEL default(none) &
!$OMP shared(nr,a,itemp,nza) &
!$OMP private(i,info)
!$OMP PARALLEL default(shared)
!$OMP WORKSHARE
a%icp(:) = 0
!$OMP END WORKSHARE
!$OMP DO schedule(STATIC) &
!$OMP private(k)
!$OMP private(k,i)
do k=1,nza
i = itemp(k)
!$OMP ATOMIC UPDATE
@@ -2245,16 +2243,16 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
!$OMP END PARALLEL
#else
a%icp(:) = 0
do k=1,nza
i = itemp(k)
a%icp(i) = a%icp(i) + 1
end do
#endif
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
#endif
call a%set_host()
base/serial/impl/psb_z_csc_impl.F90
+4 -6
View File
@@ -2228,16 +2228,14 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
#if defined(OPENMP)
!$OMP PARALLEL default(none) &
!$OMP shared(nr,a,itemp,nza) &
!$OMP private(i,info)
!$OMP PARALLEL default(shared)
!$OMP WORKSHARE
a%icp(:) = 0
!$OMP END WORKSHARE
!$OMP DO schedule(STATIC) &
!$OMP private(k)
!$OMP private(k,i)
do k=1,nza
i = itemp(k)
!$OMP ATOMIC UPDATE
@@ -2245,16 +2243,16 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
!$OMP END ATOMIC
end do
!$OMP END DO
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
!$OMP END PARALLEL
#else
a%icp(:) = 0
do k=1,nza
i = itemp(k)
a%icp(i) = a%icp(i) + 1
end do
#endif
call psi_exscan(nc+1,a%icp,info,shift=ione,ibase=ione)
#endif
call a%set_host()