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

Fixes for OpenMP compilation in map_mod

Browse Source
repack-csga
sfilippone 7 months ago
parent e19284eb6c
commit 12a4c21fed
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

4
base/modules/desc/psb_gen_block_map_mod.F90
Unescape Escape View File

@ -282,7 +282,7 @@ contains
if (present(mask)) then if (present(mask)) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(mask,idxin,idxout,idxmap,owned_,info) & !$omp shared(mask,idxin,idxout,idxmap,owned_,info,im) &
!$omp private(i) !$omp private(i)
do i=1, im do i=1, im
if (mask(i)) then if (mask(i)) then
@ -300,7 +300,7 @@ contains
!$omp end parallel do !$omp end parallel do
else if (.not.present(mask)) then else if (.not.present(mask)) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(idxin,idxout,idxmap,owned_,info) & !$omp shared(idxin,idxout,idxmap,owned_,info,im) &
!$omp private(i) !$omp private(i)
do i=1, im do i=1, im
if ((1<=idxin(i)).and.(idxin(i) <= idxmap%local_rows)) then if ((1<=idxin(i)).and.(idxin(i) <= idxmap%local_rows)) then

20
base/modules/desc/psb_repl_map_mod.F90
Unescape Escape View File

@ -228,7 +228,7 @@ contains
if (present(mask)) then if (present(mask)) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(mask,idxin,idxout,idxmap) & !$omp shared(mask,idxin,idxout,idxmap,im) &
!$omp private(i) !$omp private(i)
do i=1, im do i=1, im
if (mask(i)) then if (mask(i)) then
@ -242,7 +242,7 @@ contains
!$omp end parallel do !$omp end parallel do
else if (.not.present(mask)) then else if (.not.present(mask)) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(idxin,idxout,idxmap) & !$omp shared(idxin,idxout,idxmap,im) &
!$omp private(i) !$omp private(i)
do i=1, im do i=1, im
if ((1<=idxin(i)).and.(idxin(i) <= idxmap%local_rows)) then if ((1<=idxin(i)).and.(idxin(i) <= idxmap%local_rows)) then
@ -333,7 +333,7 @@ contains
if (idxmap%is_asb()) then if (idxmap%is_asb()) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(mask,idx,idxmap) & !$omp shared(mask,idx,idxmap,is) &
!$omp private(i) !$omp private(i)
do i=1, is do i=1, is
if (mask(i)) then if (mask(i)) then
@ -347,7 +347,7 @@ contains
!$omp end parallel do !$omp end parallel do
else if (idxmap%is_valid()) then else if (idxmap%is_valid()) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(mask,idx,idxmap) & !$omp shared(mask,idx,idxmap,is) &
!$omp private(i) !$omp private(i)
do i=1,is do i=1,is
if (mask(i)) then if (mask(i)) then
@ -369,7 +369,7 @@ contains
if (idxmap%is_asb()) then if (idxmap%is_asb()) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(idx,idxmap) & !$omp shared(idx,idxmap,is) &
!$omp private(i) !$omp private(i)
do i=1, is do i=1, is
if ((1<= idx(i)).and.(idx(i) <= idxmap%global_rows)) then if ((1<= idx(i)).and.(idx(i) <= idxmap%global_rows)) then
@ -381,7 +381,7 @@ contains
!$omp end parallel do !$omp end parallel do
else if (idxmap%is_valid()) then else if (idxmap%is_valid()) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(idx,idxmap) & !$omp shared(idx,idxmap,is) &
!$omp private(i) !$omp private(i)
do i=1,is do i=1,is
if ((1<= idx(i)).and.(idx(i) <= idxmap%global_rows)) then if ((1<= idx(i)).and.(idx(i) <= idxmap%global_rows)) then
@ -434,7 +434,7 @@ contains
if (idxmap%is_asb()) then if (idxmap%is_asb()) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(mask,idxin,idxout,idxmap) & !$omp shared(mask,idxin,idxout,idxmap,im) &
!$omp private(i) !$omp private(i)
do i=1, im do i=1, im
if (mask(i)) then if (mask(i)) then
@ -448,7 +448,7 @@ contains
!$omp end parallel do !$omp end parallel do
else if (idxmap%is_valid()) then else if (idxmap%is_valid()) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(mask,idxin,idxout,idxmap) & !$omp shared(mask,idxin,idxout,idxmap,im) &
!$omp private(i) !$omp private(i)
do i=1,im do i=1,im
if (mask(i)) then if (mask(i)) then
@ -469,7 +469,7 @@ contains
if (idxmap%is_asb()) then if (idxmap%is_asb()) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(idxin,idxout,idxmap) & !$omp shared(idxin,idxout,idxmap,im) &
!$omp private(i) !$omp private(i)
do i=1, im do i=1, im
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
@ -481,7 +481,7 @@ contains
!$omp end parallel do !$omp end parallel do
else if (idxmap%is_valid()) then else if (idxmap%is_valid()) then
!$omp parallel do default(none) schedule(dynamic) & !$omp parallel do default(none) schedule(dynamic) &
!$omp shared(idxin,idxout,idxmap) & !$omp shared(idxin,idxout,idxmap,im) &
!$omp private(i) !$omp private(i)
do i=1,im do i=1,im
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then

Write Preview
Loading…
Cancel
Save