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

using end_idx to copy data from threads in gustavson and gustavson_1d

Browse Source
This commit is contained in:
wlthr
2023-08-28 11:06:30 +02:00
parent 0185b79b2a
commit 2322a9ce61
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_d_csr_impl.F90
+4 -4
View File
@@ -3892,8 +3892,8 @@ contains
call psb_realloc(c%irp(ma + 1), c%ja, info)
!$omp end single
c%val(c%irp(start_idx):c%irp(start_idx) + nnz) = vals(1:nnz)
c%ja(c%irp(start_idx):c%irp(start_idx) + nnz) = col_inds(1:nnz)
c%val(c%irp(start_idx):c%irp(end_idx + 1) - 1) = vals(1:nnz)
c%ja(c%irp(start_idx):c%irp(end_idx + 1) - 1) = col_inds(1:nnz)
!$omp end parallel
end subroutine spmm_omp_gustavson
@@ -4011,8 +4011,8 @@ contains
call psb_realloc(c%irp(ma + 1), c%ja, info)
!$omp end single
c%val(c%irp(start_idx):c%irp(start_idx) + nnz) = vals(1:nnz)
c%ja(c%irp(start_idx):c%irp(start_idx) + nnz) = col_inds(1:nnz)
c%val(c%irp(start_idx):c%irp(end_idx + 1) - 1) = vals(1:nnz)
c%ja(c%irp(start_idx):c%irp(end_idx + 1) - 1) = col_inds(1:nnz)
!$omp end parallel
end subroutine spmm_omp_gustavson_1d