mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-07 05:53:37 +01:00
test intel bug
This commit is contained in:
parent
924dd3a65b
commit
3d478029e8
@ -9,7 +9,7 @@
|
||||
FC : ifort -fpic
|
||||
LAPACK_LIB : -mkl=parallel -lirc -lsvml -limf -lipps
|
||||
IRPF90 : irpf90
|
||||
IRPF90_FLAGS : --ninja --align=32 -DINTEL
|
||||
IRPF90_FLAGS : --ninja --align=32 -DINTEL -DINTEL_CHECK_OMP
|
||||
|
||||
# Global options
|
||||
################
|
||||
|
16
src/utils/intel_check_omp.irp.f
Normal file
16
src/utils/intel_check_omp.irp.f
Normal file
@ -0,0 +1,16 @@
|
||||
subroutine intel_check_omp()
|
||||
|
||||
! Doc : idk
|
||||
|
||||
implicit none
|
||||
|
||||
IRP_IF INTEL_CHECK_OMP
|
||||
call omp_set_max_active_levels(5)
|
||||
print*,'INTEL_CHECK_OMP: true'
|
||||
IRP_ELSE
|
||||
call omp_set_nested(.True.)
|
||||
!call omp_set_nested(.False.)
|
||||
print*,'INTEL_CHECK_OMP: false'
|
||||
IRP_ENDIF
|
||||
|
||||
end
|
Loading…
Reference in New Issue
Block a user