From d925d39089b762a112ebb38e46cc4dd0fabc5f99 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Thu, 20 Mar 2025 10:14:49 +0100 Subject: [PATCH] Take out OpenMP in samples generation for the time being --- samples/advanced/pdegen/amg_d_genpde_mod.F90 | 18 ++++++++++-------- samples/advanced/pdegen/amg_s_genpde_mod.F90 | 18 ++++++++++-------- 2 files changed, 20 insertions(+), 16 deletions(-) diff --git a/samples/advanced/pdegen/amg_d_genpde_mod.F90 b/samples/advanced/pdegen/amg_d_genpde_mod.F90 index 11cf2a0f..d17c1d1c 100644 --- a/samples/advanced/pdegen/amg_d_genpde_mod.F90 +++ b/samples/advanced/pdegen/amg_d_genpde_mod.F90 @@ -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 diff --git a/samples/advanced/pdegen/amg_s_genpde_mod.F90 b/samples/advanced/pdegen/amg_s_genpde_mod.F90 index 36044cfa..b87079e9 100644 --- a/samples/advanced/pdegen/amg_s_genpde_mod.F90 +++ b/samples/advanced/pdegen/amg_s_genpde_mod.F90 @@ -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