PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 20:34:58 +01:00
Code Releases Activity

Fast MKL on AMD

Browse Source
This commit is contained in:
Anthony Scemama 2023-07-04 01:43:44 +02:00
parent 06720f3f21
commit 6a53e44e9b
3 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ezfio_files/NEED
View File

@ -1,2 +1,3 @@
mpi mpi
zmq zmq
utils

7
src/ezfio_files/ezfio.irp.f
View File

@ -7,6 +7,8 @@ BEGIN_PROVIDER [ character*(1024), ezfio_filename ]
PROVIDE mpi_initialized PROVIDE mpi_initialized
integer :: i
! Get the QPACKAGE_INPUT environment variable ! Get the QPACKAGE_INPUT environment variable
call getenv('QPACKAGE_INPUT',ezfio_filename) call getenv('QPACKAGE_INPUT',ezfio_filename)
if (ezfio_filename == '') then if (ezfio_filename == '') then
@ -44,11 +46,14 @@ BEGIN_PROVIDER [ character*(1024), ezfio_filename ]
END_PROVIDER END_PROVIDER
BEGIN_PROVIDER [ character*(1024), ezfio_work_dir ] BEGIN_PROVIDER [ character*(1024), ezfio_work_dir ]
use c_functions
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! EZFIO/work/ ! EZFIO/work/
END_DOC END_DOC
call ezfio_set_work_empty(.False.) logical :: b
b = mkl_serv_intel_cpu_true() /= 1
call ezfio_set_work_empty(b)
ezfio_work_dir = trim(ezfio_filename)//'/work/' ezfio_work_dir = trim(ezfio_filename)//'/work/'
END_PROVIDER END_PROVIDER

7
src/utils/c_functions.f90
View File

@ -57,6 +57,12 @@ module c_functions
end subroutine sscanf_sd_c end subroutine sscanf_sd_c
end interface end interface
interface
integer(kind=c_int) function mkl_serv_intel_cpu_true() bind(C)
use iso_c_binding
end function
end interface
contains contains
integer function atoi(a) integer function atoi(a)
@ -131,4 +137,3 @@ subroutine usleep(us)
call usleep_c(u) call usleep_c(u)
end subroutine usleep end subroutine usleep