PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 04:43:45 +01:00
Code Releases Activity

remove comments

Browse Source
This commit is contained in:
Yann Damour 2021-11-23 10:33:37 +01:00
parent c93938e443
commit 082b32b24f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/utils/set_multiple_levels_omp.irp.f
View File

@ -5,11 +5,11 @@ subroutine set_multiple_levels_omp()
implicit none implicit none
IRP_IF SET_MAX_ACT IRP_IF SET_MAX_ACT
print*,'SET_MAX_ACT: True, call omp_set_max_active_levels(5)' !print*,'SET_MAX_ACT: True, call omp_set_max_active_levels(5)'
call omp_set_max_active_levels(5) call omp_set_max_active_levels(5)
IRP_ENDIF IRP_ENDIF
IRP_IF SET_NESTED IRP_IF SET_NESTED
print*,'SET_NESTED: True, call omp_set_nested(.True.)' !print*,'SET_NESTED: True, call omp_set_nested(.True.)'
call omp_set_nested(.True.) call omp_set_nested(.True.)
IRP_ENDIF IRP_ENDIF