mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-26 14:32:05 +02:00
17 lines
288 B
Fortran
17 lines
288 B
Fortran
|
subroutine intel_check_omp()
|
||
|
|
|
||
|
|
! Doc : idk
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
IRP_IF INTEL_CHECK_OMP
|
||
|
|
call omp_set_max_active_levels(5)
|
||
|
|
print*,'INTEL_CHECK_OMP: true'
|
||
|
|
IRP_ELSE
|
||
|
|
call omp_set_nested(.True.)
|
||
|
|
!call omp_set_nested(.False.)
|
||
|
|
print*,'INTEL_CHECK_OMP: false'
|
||
|
|
IRP_ENDIF
|
||
|
|
|
||
|
|
end
|