mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-07-11 05:33:34 +02:00
remove comments
This commit is contained in:
parent
c93938e443
commit
082b32b24f
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user