mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-16 17:35:35 +02:00
17 lines
338 B
Fortran
17 lines
338 B
Fortran
|
subroutine test_set_multiple_levels_omp()
|
||
|
|
||
|
! Doc : idk
|
||
|
|
||
|
implicit none
|
||
|
|
||
|
IRP_IF SET_MAX_ACT
|
||
|
print*,'SET_MAX_ACT: True, call omp_set_max_active_levels(5)'
|
||
|
call omp_set_max_active_levels(5)
|
||
|
IRP_ENDIF
|
||
|
IRP_IF SET_NESTED
|
||
|
print*,'SET_NESTED: True, call omp_set_nested(.True.)'
|
||
|
call omp_set_nested(.True.)
|
||
|
IRP_ENDIF
|
||
|
|
||
|
end
|