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

Take out OpenMP in samples generation for the time being

Browse Source
This commit is contained in:
sfilippone
2025-03-20 10:14:49 +01:00
parent 92eb261ee5
commit d925d39089
2 changed files with 20 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/pdegen/amg_d_genpde_mod.F90
+10 -8
View File
@@ -371,7 +371,8 @@ contains
call psb_barrier(ctxt)
t1 = psb_wtime()
!$omp parallel shared(deltah,myidx,a,desc_a)
! Disable OMP here for the time being
! $ o m p parallel shared(deltah,myidx,a,desc_a)
!
block
integer(psb_ipk_) :: i,j,k,ii,ib,icoeff, ix,iy,iz, ith,nth
@@ -394,7 +395,7 @@ contains
!goto 9999
endif
!$omp do schedule(dynamic)
! $ o m p do schedule(dynamic)
!
do ii=1, nlr, nb
if (info /= psb_success_) cycle
@@ -486,11 +487,11 @@ contains
call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),xv,desc_a,info)
if(info /= psb_success_) cycle
end do
!$omp end do
! $ o m p end do
deallocate(val,irow,icol)
end block
!$omp end parallel
! $ o m p end parallel
tgen = psb_wtime()-t1
if(info /= psb_success_) then
@@ -828,7 +829,8 @@ contains
call psb_barrier(ctxt)
t1 = psb_wtime()
!$omp parallel shared(deltah,myidx,a,desc_a)
! Disable OMP here for the time being
! $ o m p parallel shared(deltah,myidx,a,desc_a)
!
block
integer(psb_ipk_) :: i,j,k,ii,ib,icoeff, ix,iy,iz, ith,nth
@@ -853,7 +855,7 @@ contains
! loop over rows belonging to current process in a block
! distribution.
!$omp do schedule(dynamic)
! $ o m p do schedule(dynamic)
!
do ii=1, nlr,nb
ib = min(nb,nlr-ii+1)
@@ -924,11 +926,11 @@ contains
call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),xv,desc_a,info)
if(info /= psb_success_) cycle
end do
!$omp end do
! $ o m p end do
deallocate(val,irow,icol)
end block
!$omp end parallel
! $ o m p end parallel
tgen = psb_wtime()-t1
if(info /= psb_success_) then
samples/advanced/pdegen/amg_s_genpde_mod.F90
+10 -8
View File
@@ -371,7 +371,8 @@ contains
call psb_barrier(ctxt)
t1 = psb_wtime()
!$omp parallel shared(deltah,myidx,a,desc_a)
! Disable OMP here for the time being
! $ o m p parallel shared(deltah,myidx,a,desc_a)
!
block
integer(psb_ipk_) :: i,j,k,ii,ib,icoeff, ix,iy,iz, ith,nth
@@ -394,7 +395,7 @@ contains
!goto 9999
endif
!$omp do schedule(dynamic)
! $ o m p do schedule(dynamic)
!
do ii=1, nlr, nb
if (info /= psb_success_) cycle
@@ -486,11 +487,11 @@ contains
call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),xv,desc_a,info)
if(info /= psb_success_) cycle
end do
!$omp end do
! $ o m p end do
deallocate(val,irow,icol)
end block
!$omp end parallel
! $ o m p end parallel
tgen = psb_wtime()-t1
if(info /= psb_success_) then
@@ -828,7 +829,8 @@ contains
call psb_barrier(ctxt)
t1 = psb_wtime()
!$omp parallel shared(deltah,myidx,a,desc_a)
! Disable OMP here for the time being
! $ o m p parallel shared(deltah,myidx,a,desc_a)
!
block
integer(psb_ipk_) :: i,j,k,ii,ib,icoeff, ix,iy,iz, ith,nth
@@ -853,7 +855,7 @@ contains
! loop over rows belonging to current process in a block
! distribution.
!$omp do schedule(dynamic)
! $ o m p do schedule(dynamic)
!
do ii=1, nlr,nb
ib = min(nb,nlr-ii+1)
@@ -924,11 +926,11 @@ contains
call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),xv,desc_a,info)
if(info /= psb_success_) cycle
end do
!$omp end do
! $ o m p end do
deallocate(val,irow,icol)
end block
!$omp end parallel
! $ o m p end parallel
tgen = psb_wtime()-t1
if(info /= psb_success_) then