mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-19 22:41:48 +02:00
Bug with gortran6
This commit is contained in:
parent
be22be77cb
commit
ee14509458
2
configure
vendored
2
configure
vendored
@ -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,"
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user