From 3b5221531cb3bcd95eeb141c59b67768de39321d Mon Sep 17 00:00:00 2001
From: hoffer <max.hofferlormand@hotmail.fr>
Date: Wed, 6 Apr 2022 16:20:29 +0200
Subject: [PATCH] Add openmp and cublas

---
 org/qmckl_jastrow.org | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/org/qmckl_jastrow.org b/org/qmckl_jastrow.org
index 1cbd030..2ac3438 100644
--- a/org/qmckl_jastrow.org
+++ b/org/qmckl_jastrow.org
@@ -5528,11 +5528,11 @@ qmckl_exit_code qmckl_compute_tmp_c_cuBlas (
   const int64_t bf = elec_num*nucl_num*(cord_num+1);
   const int64_t cf = bf;
 
-  const double* tmp_c_gpu = malloc(sizeof(tmp_c));
-
-  #pragma omp target enter data map(alloc:een_rescaled_e[0:elec_num*elec_num*(cord_num+1)*walk_num],een_rescaled_n[0:M*N*K],tmp_c_gpu[0:sizeof(tmp_c_gpu)/sizeof(double)])
+  #pragma omp target enter data map(alloc:een_rescaled_e[0:elec_num*elec_num*(cord_num+1)*walk_num],een_rescaled_n[0:M*N*walk_num],tmp_c[0:elec_num*nucl_num*(cord_num+1)*cord_num*walk_num])
   #pragma omp target data use_device_ptr(een_rescaled_e,een_rescaled_n,tmp_c)
   {
+
+
   for (int nw=0; nw < walk_num; ++nw) {
     for (int i=0; i<cord_num; ++i){
 
@@ -5563,7 +5563,7 @@ qmckl_exit_code qmckl_compute_tmp_c_cuBlas (
   cublasDestroy(handle);
 
 
-  #pragma omp target exit data map(from:tmp_c_gpu[0:elec_num*nucl_num*(cord_num+1)*cord_num*walk_num])
+  #pragma omp target exit data map(from:tmp_c[0:elec_num*nucl_num*(cord_num+1)*cord_num*walk_num])
 
 
   return info;