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

using end_idx to copy data from threads in gustavson and gustavson_1d

Browse Source
omp-walther
wlthr 1 year ago
parent 0185b79b2a
commit 2322a9ce61
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

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

@ -3892,8 +3892,8 @@ contains
call psb_realloc(c%irp(ma + 1), c%ja, info) call psb_realloc(c%irp(ma + 1), c%ja, info)
!$omp end single !$omp end single
c%val(c%irp(start_idx):c%irp(start_idx) + nnz) = vals(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(start_idx) + nnz) = col_inds(1:nnz) c%ja(c%irp(start_idx):c%irp(end_idx + 1) - 1) = col_inds(1:nnz)
!$omp end parallel !$omp end parallel
end subroutine spmm_omp_gustavson end subroutine spmm_omp_gustavson
@ -4011,8 +4011,8 @@ contains
call psb_realloc(c%irp(ma + 1), c%ja, info) call psb_realloc(c%irp(ma + 1), c%ja, info)
!$omp end single !$omp end single
c%val(c%irp(start_idx):c%irp(start_idx) + nnz) = vals(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(start_idx) + nnz) = col_inds(1:nnz) c%ja(c%irp(start_idx):c%irp(end_idx + 1) - 1) = col_inds(1:nnz)
!$omp end parallel !$omp end parallel
end subroutine spmm_omp_gustavson_1d end subroutine spmm_omp_gustavson_1d

Write Preview
Loading…
Cancel
Save