LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-02 11:25:26 +02:00
Code Issues Releases Wiki Activity

Bug with gortran6

Browse Source
This commit is contained in:
Anthony Scemama 2019-01-16 00:00:00 +01:00
parent be22be77cb
commit ee14509458
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
configure vendored
View File

@ -431,7 +431,7 @@ if [[ -n $CONFIG ]] ; then
fi fi
if [[ -f ${QP_ROOT}/build.ninja ]] ; then if [[ -f ${QP_ROOT}/build.ninja ]] ; then
exec ${QP_ROOT}/bin/qpsh [[ -z ${TRAVIS} ]] && exec ${QP_ROOT}/bin/qpsh
else else
echo "" echo ""
echo "${QP_ROOT}/build.ninja does not exist," echo "${QP_ROOT}/build.ninja does not exist,"

18
src/utils/sort.irp.f
View File

@ -550,23 +550,23 @@ BEGIN_TEMPLATE
endif endif
!$OMP PARALLEL DEFAULT(SHARED) if (isize > 1000000) ! !$OMP PARALLEL DEFAULT(SHARED) if (isize > 1000000)
!$OMP SINGLE ! !$OMP SINGLE
if (i3>1_$int_type) then if (i3>1_$int_type) then
!$OMP TASK FIRSTPRIVATE(iradix_new,i3) SHARED(x,iorder) if(i3 > 1000000) ! !$OMP TASK FIRSTPRIVATE(iradix_new,i3) SHARED(x,iorder) if(i3 > 1000000)
call $Xradix_sort$big(x,iorder,i3,iradix_new-1) call $Xradix_sort$big(x,iorder,i3,iradix_new-1)
!$OMP END TASK ! !$OMP END TASK
endif endif
if (isize-i3>1_$int_type) then if (isize-i3>1_$int_type) then
!$OMP TASK FIRSTPRIVATE(iradix_new,i3) SHARED(x,iorder) if(isize-i3 > 1000000) ! !$OMP TASK FIRSTPRIVATE(iradix_new,i3) SHARED(x,iorder) if(isize-i3 > 1000000)
call $Xradix_sort$big(x(i3+1_$int_type),iorder(i3+1_$int_type),isize-i3,iradix_new-1) call $Xradix_sort$big(x(i3+1_$int_type),iorder(i3+1_$int_type),isize-i3,iradix_new-1)
!$OMP END TASK ! !$OMP END TASK
endif endif
!$OMP TASKWAIT ! !$OMP TASKWAIT
!$OMP END SINGLE ! !$OMP END SINGLE
!$OMP END PARALLEL ! !$OMP END PARALLEL
return return
endif endif