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

Put additional OpenMP directives.

Browse Source
This commit is contained in:
Salvatore Filippone
2021-01-02 17:07:41 +01:00
parent 0232ed755f
commit 82665f4e79
4 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csr_impl.f90
+2 -1
View File
@@ -1328,7 +1328,8 @@ function psb_c_csr_csnmi(a) result(res)
res = szero
if (a%is_dev()) call a%sync()
do i = 1, a%get_nrows()
!$omp parallel do private(i,acc) reduction(max: res)
do i = 1, a%get_nrows()
acc = szero
do j=a%irp(i),a%irp(i+1)-1
acc = acc + abs(a%val(j))
base/serial/impl/psb_d_csr_impl.f90
+2 -1
View File
@@ -1328,7 +1328,8 @@ function psb_d_csr_csnmi(a) result(res)
res = dzero
if (a%is_dev()) call a%sync()
do i = 1, a%get_nrows()
!$omp parallel do private(i,acc) reduction(max: res)
do i = 1, a%get_nrows()
acc = dzero
do j=a%irp(i),a%irp(i+1)-1
acc = acc + abs(a%val(j))
base/serial/impl/psb_s_csr_impl.f90
+2 -1
View File
@@ -1328,7 +1328,8 @@ function psb_s_csr_csnmi(a) result(res)
res = szero
if (a%is_dev()) call a%sync()
do i = 1, a%get_nrows()
!$omp parallel do private(i,acc) reduction(max: res)
do i = 1, a%get_nrows()
acc = szero
do j=a%irp(i),a%irp(i+1)-1
acc = acc + abs(a%val(j))
base/serial/impl/psb_z_csr_impl.f90
+2 -1
View File
@@ -1328,7 +1328,8 @@ function psb_z_csr_csnmi(a) result(res)
res = dzero
if (a%is_dev()) call a%sync()
do i = 1, a%get_nrows()
!$omp parallel do private(i,acc) reduction(max: res)
do i = 1, a%get_nrows()
acc = dzero
do j=a%irp(i),a%irp(i+1)-1
acc = acc + abs(a%val(j))