QuantumPackage/src/utils/set_multiple_levels_omp.irp.f

subroutine 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
script test, omp flag 2021-11-19 22:39:59 +01:00			`subroutine set_multiple_levels_omp()`
add a test to check if omp works on multiple levels 2021-11-19 09:57:04 +01:00
			`! Doc : idk`

			`implicit none`

			`IRP_IF SET_MAX_ACT`
remove comments 2021-11-23 10:33:37 +01:00			`!print*,'SET_MAX_ACT: True, call omp_set_max_active_levels(5)'`
add a test to check if omp works on multiple levels 2021-11-19 09:57:04 +01:00			`call omp_set_max_active_levels(5)`
			`IRP_ENDIF`
			`IRP_IF SET_NESTED`
remove comments 2021-11-23 10:33:37 +01:00			`!print*,'SET_NESTED: True, call omp_set_nested(.True.)'`
add a test to check if omp works on multiple levels 2021-11-19 09:57:04 +01:00			`call omp_set_nested(.True.)`
			`IRP_ENDIF`

			`end`