compilation fix for issue #180 : OpenMP-GPU and OpenACC

yambo-code · Feb 5, 2025 · 04fe5ae · 04fe5ae
1 parent 4085b7a
commit 04fe5ae
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/include/headers/common/y_memory.h b/include/headers/common/y_memory.h
@@ -10,6 +10,7 @@
  use pars,         ONLY:IPL
  use y_memory,     ONLY:MEM_err,MEM_msg,MEM_count,MEM_global_mesg
 #if defined _OPENACC || defined _OPENMP_GPU
+ use y_memory,     ONLY:MEM_count_d
  use devxlib,      ONLY:devxlib_map,devxlib_unmap,devxlib_mapped,devxlib_memcpy_h2d
 #endif
 
@@ -29,7 +30,7 @@
     YAMBO_ALLOC(x,(SIZE(1),SIZE(2),SIZE(3),SIZE(4),SIZE(5),SIZE(6)))
 
 #define SIMPLE_ALLOC(x,SIZE) \
-  allocate(x SIZE, &NEWLINE& stat=MEM_err,errmsg=MEM_msg)  NEWLINE \
+  allocate(x SIZE, &NEWLINE& stat=MEM_err,errmsg=MEM_msg)
 
 #define YAMBO_ALLOC_P(x,SIZE) \
   allocate(x SIZE, &NEWLINE& stat=MEM_err,errmsg=MEM_msg)NEWLINE \

diff --git a/src/memory/MEM_free.F b/src/memory/MEM_free.F
@@ -10,7 +10,7 @@ subroutine MEM_free(what,Sz)
  use pars,         ONLY:schlen,DP,IPL,IP
  use units,        ONLY:Kilobyte
  use openmp,       ONLY:master_thread
- use y_memory,       ONLY:TOT_MEM_Kb,MEM_element_copy,N_MEM_elements,MEMs
+ use y_memory,     ONLY:TOT_MEM_Kb,MEM_element_copy,N_MEM_elements,MEMs
  !
  implicit none
  !