qp2/src/utils/intel_check_omp.irp.f

subroutine intel_check_omp()

! Doc : idk

  implicit none

  IRP_IF INTEL2021_CHECK_OMP
    call omp_set_max_active_levels(5)
    print*,'INTEL2021_CHECK_OMP: true'
  IRP_ENDIF
  IRP_IF INTEL2019_CHECK_OMP
    call omp_set_nested(.True.)
    print*,'INTEL2019_CHECK_OMP: true'
  IRP_ENDIF
  IRP_IF GNU_CHECK_OMP
    call omp_set_nested(.True.)
    print*,'GNU_CHECK_OMP: true'
  IRP_ENDIF

end
test intel bug 2021-11-18 09:19:41 +01:00			`subroutine intel_check_omp()`

			`! Doc : idk`

			`implicit none`

test comp flags 2021-11-18 14:54:34 +01:00			`IRP_IF INTEL2021_CHECK_OMP`
test intel bug 2021-11-18 09:19:41 +01:00			`call omp_set_max_active_levels(5)`
test comp flags 2021-11-18 14:54:34 +01:00			`print*,'INTEL2021_CHECK_OMP: true'`
			`IRP_ENDIF`
			`IRP_IF INTEL2019_CHECK_OMP`
			`call omp_set_nested(.True.)`
			`print*,'INTEL2019_CHECK_OMP: true'`
			`IRP_ENDIF`
			`IRP_IF GNU_CHECK_OMP`
test intel bug 2021-11-18 09:19:41 +01:00			`call omp_set_nested(.True.)`
test comp flags 2021-11-18 14:54:34 +01:00			`print*,'GNU_CHECK_OMP: true'`
test intel bug 2021-11-18 09:19:41 +01:00			`IRP_ENDIF`

			`end`